小编leb*_*noz的帖子

起初，我尝试在 R 中读写 xlsx 文件（同时比较xlsx和openxlsx包之间的输出）。

我在 mac os 上工作。

使用read.xlsx()来自两个包的读取 xlsx 文件效果很好。但是，在编写新文件时，只有xlsx::write.xlsx()有效的。

更确切地说，该openxlsx::write.xlsx()命令没有出错，并且成功保存了一个 xlsx 文件，但是当我尝试使用 Numbers 打开该文件（通过双击文件夹中的文件）时，弹出一条错误消息告诉我该文件无法打开。

我尝试了不同的数据框，但结果保持不变。为了显示一个例子，请参考我直接从 R 帮助页面获取的以下行。它应该有效，但对我不起作用。

write.xlsx(iris, file = "writeXLSX1.xlsx", colNames = TRUE, borders = "columns")

有人告诉我是什么问题吗？我试图用谷歌搜索旧线程，但似乎没有人讨论这个问题。我知道在许多类似的线程中人们建议更换软件包，好吧...在此之前，您能告诉我有哪些限制openxlsx吗？

我想在c＃中的循环内将数据添加到数据表中，但我不能。我使用此代码，但它不会运行1次。当i=2它不起作用时。请帮忙。

DataTable dt = new DataTable();
dt.Columns.Add("ProductId");
dt.Columns.Add("ProductTotalPrice");
DataRow dr = dt.NewRow();

for (int i = 0; i < 10; i++)
{
    dr["ProductId"] = i.ToString();
    dr["ProductTotalPrice"] = (i*1000).ToString();
    dt.Rows.Add(dr);
}

我希望有人能帮我解决这个问题.数据可以在这里找到.

基本上我想绘制一条直线(平均值)和它测试的4个模型的相关置信区间(下限,上限).我想面对Cat_Auth变量,其中有4个类别(所以4个图).第一个"模型"实际上只是样本数据的平均值,我不想要CI(数据中指定的NA值 - 不确定这是否正确).

我可以通过以下方式获得情节:

newdata <- read.csv("data.csv", header=T)
ggplot(newdata, aes(x = Affil_Max, y = Mean)) + 
  geom_line(data = newdata, aes(), colour = "blue") +
  geom_ribbon(data = newdata, alpha = .5, aes(ymin = Lower, ymax = Upper, group = Model, fill = Model)) +
  facet_grid(.~ Cat_Auth)

但我想为每个型号设置不同的彩色线条和阴影色带(例如,红色平均线和红色阴影色带用于模型2,绿色用于模型3等).另外,我无法弄清楚为什么对应于第一组平均值的蓝线原样是脱节的.

真的很感激任何帮助!

我想使用 dygraphs 创建条形图和折线图，这似乎应该可以基于此处的“条形图和折线图”dygraphs 示例以及dygraphs 包中提供的dyBarChart() 自定义绘图仪。

使用自定义包装器，我可以创建一个条形图，因此我认为该代码正在运行：

library(dygraphs)

dyBarChart <- function(dygraph) {
  dyPlotter(
    dygraph = dygraph,
    name = "BarChart",
    path = system.file("examples/plotters/barchart.js",package = "dygraphs")
  )
}

lungDeaths <- cbind(ldeaths, mdeaths)
dygraph(lungDeaths) %>% 
  dyBarChart()

我假设我可以用dySeries()来自定义我想用线/条显示的系列，但以下都不起作用。它们不会出错，但不会创建任何内容。我也不确定这是否"linePlotter"是正确的绘图仪名称，但无论哪种方式，我都需要一点帮助。

# doesn't work
dygraph(lungDeaths) %>% 
  dyBarChart() %>% 
  dySeries("ldeaths", plotter = "linePlotter")

# also doesn't work:
dygraph(lungDeaths) %>%
  dySeries("ldeaths", plotter = "dyBarChart") %>%
  dySeries("mdeaths", color = "blue")

谢谢。

如果我使用R Tools for Visual Studio(RTVS),是否可以从Visual Studio中运行Shiny应用程序.如果有,怎么样？

我正在ggplot2中绘制堆栈条形图。我的数据集就像

var1         var2   var3       value
treatment1  group_1 C8.0    0.010056478
treatment2  group_1 C8.0    0.009382918
treatment3  group_2 C8.0    0.003014983
treatment4  group_2 C8.0    0.005349631
treatment5  group_2 C8.0    0.005349631

var1包含5个处理，这五个处理属于中的两个组var2，每个处理中有14个测量var3值，其值存储在中value。

我想作图比较这五种治疗方法及其测量值。所以我用堆栈条形图绘制如下图：

我的代码：

library(ggplot2)
colourCount = length(unique(mydata$var3))
getPalette = colorRampPalette(brewer.pal(14, "YlGnBu")) #get more color from palette

ggplot(data=mydata, aes(x=var1, y=value, fill=var3))+
  geom_bar(stat="identity", position="stack", colour="black", width=.2)+
  *#geom_errorbar(aes(ymax=var3+se, ymin=var3-se, width=.1))+*
  scale_fill_manual(values = getPalette(colourCount))+

  scale_y_continuous(expand = c(0, 0))+
  mytheme

我如何将前两列堆叠在一起，而其他三列合并在一起？因为它们属于中的两个组var2。

我想找到与R rep和rep_len函数等效的python（可能是numpy）。

问题1：关于rep_len功能，说我跑了，

rep_len(paste('q',1:4,sep=""), length.out = 7)

那么vector的元素['q1','q2','q3','q4']将被回收以填满7个空格，您将获得输出

[1] "q1" "q2" "q3" "q4" "q1" "q2" "q3"

如何回收列表或一维numpy数组的元素以适合预定长度？从我已经看到的numpy的重复功能可以让您指定一定次数的代表，但不会重复值以填充预定长度。

问题2：关于rep功能，说我跑了，

rep(2000:2004, each = 3, length.out = 14)

那么输出是

[1] 2000 2000 2000 2001 2001 2001 2002 2002 2002 2003 2003 2003 2004 2004

如何使用python做到这一点（回收列表或numpy数组的元素以适合预定长度并连续列出每个元素预定次数）？

如果这个问题以前曾被问过，我深表歉意。对于堆栈溢出，我是完全陌生的，对于编程而言，我是非常陌生的。

我正在尝试使用 C++ 构建一个 R 包，而不使用 Rcpp（我知道 Rcpp 工作得很好）。我已经阅读了几个 R 包教程并简要阅读了编写 R 扩展。下面的示例 1) 正在工作，但示例 2) 使 R 崩溃。我想知道为什么会发生这种情况（是否有任何先决步骤可以为 R 等编写函数？）。

示例 1

在.cpp文件中

extern "C" {

  SEXP add(SEXP a, SEXP b) {

    SEXP result = PROTECT(allocVector(REALSXP, 1));

    REAL(result)[0] = asReal(a) + asReal(b);

    UNPROTECT(1);

    return result;

  }

}

调用 R：

.Call("add", 3.0, 2.0).

这个例子有效。

示例 2

在.cpp文件中：

extern "C" {

  void RHello() {

    Rprintf("Hello.\n");

    R_FlushConsole();
    R_ProcessEvents();

  }

}

调用 R：

.Call("RHello"). 

这会导致 R 崩溃。

我想[^&*$]用python计算段落中出现的特殊字符数.任何人都可以帮我简洁地做到这一点吗？我不想用于循环条件.

我有一个df日期和权重的数据框（dput下面的语句），其中日期是当月的最后一个工作日：

   date    factor    weight
---------------------------
2011-12-30 Margin   0.1833979
2011-12-30    ROE   0.4116400
2012-01-31 Margin   0.1268960
2012-01-31    ROE   0.5407965
2012-02-29 Margin   0.1203718
2012-02-29    ROE   0.5175672
...

当我尝试制作条形图时，条形之间的空间不均匀并且看起来很糟糕：

library(ggplot2)
ggplot(df, aes(x = date, y = weight, fill = factor)) + geom_col(colour = "black")

ggplot2使条形分布看起来均匀的最简单方法是什么？

我的dput声明：

df = structure(list(date = structure(c(15338, 15338, 15370, 15370, 15399, 15399, 15429, 15429, 15460, 15460, 15491, 15491, 15520, 15520, 15552, 15552, 15583, 15583, 15611, 15611, 15644, 15644, 15674, 15674), class = "Date"), …