Tag: r

如何将data.table分组成多个列？: 我正在使用data.table包加速数据集上的汇总统计信息收集。我很好奇，如果有一种方法可以由多个列组成。我的数据如下所示： purchaseAmt adShown url 15.54 00001 150000001 4.82 00002 150000001 157.99 05005 776300044 … … … 我可以做这样的事情： adShownMedian <- df1[,median(purchaseAmt),by="adShown"] 得到每个广告的中位数。我将如何做一些结合adShown和url ？我试过这个： adShownMedian <- df1[,median(purchaseAmt),by=c("adShown","url")] 但没有运气。有什么build议么？

如何从指定的号码（不带名称）中提取号码？: 我正在寻找B1（newx）线性模型系数的值，而不是名称。我只是想要0.5的值。我不想要“newx”这个名字。 newx <- c(0.5,1.5.2.5) newy <- c(2,3,4) out <- lm(newy ~ newx) out看起来像： Call: lm(formula = newy ~ newx) Coefficients: (Intercept) newx 1.5 1.0 我到了这里但现在我卡住了。 out$coefficients["newx"] newx 1.0

如何在每个matrix元素的索引上应用函数: 我想知道在R中是否有一个内置函数将函数应用到matrix的每个元素（当然，函数应该根据matrix索引来计算）。相当于这样的东西： matrix_apply <- function(m, f) { m2 <- m for (r in seq(nrow(m2))) for (c in seq(ncol(m2))) m2[[r, c]] <- f(r, c) return(m2) } 如果没有这样的内置函数，初始化matrix以包含通过计算具有matrix索引作为参数的任意函数获得的值的最佳方法是什么？

统计每组中的logging数并生成行号: 我有以下data.table set.seed(1) DT <- data.table(VAL = sample(c(1, 2, 3), 10, replace = TRUE)) VAL 1: 1 2: 2 3: 2 4: 3 5: 1 6: 3 7: 3 8: 2 9: 2 10: 1 在 VAL每个数字中，我想：统计logging/行数创build第一个，第二个，第三个出现的行索引（计数器）等。最后我想要结果 VAL COUNT IDX 1: 1 3 1 2: 2 4 1 3: 2 4 2 4: […]

当加载一个R工作区时，怎么会导致“不可思议的数字”错误，以及如何避免？: 我试图加载我的R工作区，并收到此错误： Error: bad restore file magic number (file may be corrupted) — no data loaded In addition: Warning message: file 'WORKSPACE_Wedding_Weekend_September' has magic number '#gets' Use of save versions prior to 2 is deprecated 我对技术细节并不特别感兴趣，但主要是我如何造成这种情况以及未来如何防止这种情况。以下是关于情况的一些说明：我在一个bootcamp分区上运行Windows XP的MacBook Pro上运行R 2.15.1。这个工作区文件有一些明显的错误，因为它的重量只有80kb，而其他所有的通常大于10000 整个周末，我在R中运行一个外部build模程序，并将其输出存储到不同的对象中。我在几天的时间内运行了几次模型迭代，例如output_Saturday < – call_model（）模型输出没有什么特别之处，它只是一个包含beta，VCmatrix，模型说明等插槽的列表。

ggplot结合来自不同data.frames的两张图: 我想把两个不同的data.frames的ggplots合并成一个plot。下面你会find代码。我想结合情节1和2或情节3和4。 df1 <- data.frame(p=c(10,8,7,3,2,6,7,8), v=c(100,300,150,400,450,250,150,400)) df2 <- data.frame(p=c(10,8,6,4), v=c(150,250,350,400)) plot1 <- qplot(df1$v, df1$p) plot2 <- qplot(df2$v, df2$p, geom="step") plot3 <- ggplot(df1, aes(v, p)) + geom_point() plot4 <- ggplot(df2, aes(v, p)) + geom_step() 这一定很容易做到，但不知何故，我无法得到它的工作。谢谢你的时间。

在ggplot上添加回归线: 我努力在ggplot上添加回归线。我第一次尝试用abline，但我没有设法使其工作。然后我试了这个… data = data.frame(x.plot=rep(seq(1,5),10),y.plot=rnorm(50)) ggplot(data,aes(x.plot,y.plot))+stat_summary(fun.data=mean_cl_normal) + geom_smooth(method='lm',formula=data$y.plot~data$x.plot) 但是它也不起作用。

强制R停止绘制缩略轴标签 – 例如ggplot2中的1e + 00: 在ggplot2中，我怎样才能停止正在缩写的轴标签 – 例如1e+00, 1e+01 00，1e 1e+00, 1e+01沿x轴绘制？理想情况下，我想强制R显示在这种情况下将是1,10的实际值。任何帮助非常感谢。