Questions tagged «r»

如何从此代码生成的图例中删除字母“ a”？如果删除geom_text，则图例中不会显示“ a”字母。不过，我想保留geom_text。 ggplot(data = iris, aes(x = Sepal.Length, y=Sepal.Width, shape = Species, colour = Species)) + geom_point() + geom_text(aes(label = Species))

124 r  ggplot2  aesthetics 

我需要将R的ggplot2图形输出到具有透明背景的PNG文件。基本的R图形一切正常，但是ggplot2没有透明度： d <- rnorm(100) #generating random data #this returns transparent png png('tr_tst1.png',width=300,height=300,units="px",bg = "transparent") boxplot(d) dev.off() df <- data.frame(y=d,x=1) p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) p <- p + opts( panel.background = theme_rect(fill = "transparent",colour = NA), # or theme_blank() panel.grid.minor = theme_blank(), panel.grid.major = theme_blank() ) #returns white …

123 r  graphics  transparency  ggplot2 

我想增加（或减少）R可用的内存量。实现此目的的方法是什么？

123 r  memory-management  memory-leaks 

我有一个data.frame，我想按行将其转换为列表，这意味着每行将对应于其自己的列表元素。换句话说，我想要一个只要data.frame有行的列表。 到目前为止，我已经按照以下方式解决了这个问题，但是我想知道是否有更好的方法来解决这个问题。 xy.df <- data.frame(x = runif(10), y = runif(10)) # pre-allocate a list and fill it with a loop xy.list <- vector("list", nrow(xy.df)) for (i in 1:nrow(xy.df)) { xy.list[[i]] <- xy.df[i,] }

123 list  r  dataframe 

这是关于data.table连接语法的一个哲学问题。我发现data.tables有越来越多的用途，但仍在学习... X[Y]data.tables的联接格式非常简洁，方便且有效，但是据我所知，它仅支持内部联接和正确的外部联接。要获得左侧或完全外部联接，我需要使用merge： X[Y, nomatch = NA] -Y中的所有行-右外部联接（默认） X[Y, nomatch = 0] -仅X和Y都匹配的行-内部联接 merge(X, Y, all = TRUE) -X和Y的所有行-完全外部联接 merge(X, Y, all.x = TRUE) -X中的所有行-左外部联接 在我看来，如果X[Y]连接格式支持所有4种连接类型，那将很方便。是否仅支持两种类型的联接？ 对我来说，nomatch = 0和nomatch = NA参数值对于正在执行的动作不是很直观。这是我更容易理解和记忆的merge语法：all = TRUE，all.x = TRUE和all.y = TRUE。由于X[Y]操作merge远不止于match，为什么不对merge联接使用语法而不是match函数的nomatch参数？ 以下是4种联接类型的代码示例： # sample X and Y data.tables library(data.table) X <- data.table(t = 1:4, a …

123 r  join  data.table 

我最近从OSX Mountain Lion升级到优胜美地，从R 3.1.3升级到3.2。升级后，当我打开R或RStudio时，立即弹出消息，提示我需要安装rJavaJava6 。此外，加载或依赖rJava的任何软件包（例如xlsx）都导致RStudio崩溃（R也崩溃了）当我尝试通过打开R.app直接）。 在尝试了在Stack Overflow和其他地方（下面有更多详细信息）中找到的一些修复程序之后，我发现加载rJava或依赖的任何程序包rJava不再导致R崩溃，但是导致以下错误： library(rJava) Error : .onLoad failed in loadNamespace() for 'rJava', details: call: dyn.load(file, DLLpath = DLLpath, ...) error: unable to load shared object '/Library/Frameworks/R.framework/Versions/3.2/Resources/library/rJava/libs/rJava.so': dlopen(/Library/Frameworks/R.framework/Versions/3.2/Resources/library/rJava/libs/rJava.so, 6): Library not loaded: @rpath/libjvm.dylib Referenced from: /Library/Frameworks/R.framework/Versions/3.2/Resources/library/rJava/libs/rJava.so Reason: image not found Error: package or namespace load failed for …

122 java  r  rstudio  rjava  macos-high-sierra 

Twitter上的@EZGraphs写道：“许多在线csv均已压缩。是否可以使用R下载，解压缩档案并将数据加载到data.frame中？” #Rstats 我今天也尝试这样做，但最终只是手动下载了zip文件。 我尝试了类似的东西： fileName <- "http://www.newcl.org/data/zipfiles/a1.zip" con1 <- unz(fileName, filename="a1.dat", open = "r") 但我觉得我还有很长的路要走。有什么想法吗？

122 r  zip  connection 

我想在R中叠加两个散点图，以便每个点集都有其自己的（不同的）y轴（即，在图的位置2和4上），但这些点看起来重叠在同一图上。 有可能这样做plot吗？ 编辑显示问题的示例代码 # example code for SO question y1 <- rnorm(10, 100, 20) y2 <- rnorm(10, 1, 1) x <- 1:10 # in this plot y2 is plotted on what is clearly an inappropriate scale plot(y1 ~ x, ylim = c(-1, 150)) points(y2 ~ x, pch = 2)

122 r  plot  yaxis 

在R数据帧编码的下面，我想更换所有时代B 与出现b。 junk <- data.frame(x <- rep(LETTERS[1:4], 3), y <- letters[1:12]) colnames(junk) <- c("nm", "val") 提供： nm val 1 A a 2 B b 3 C c 4 D d 5 A e 6 B f 7 C g 8 D h 9 A i 10 B j 11 C …

122 r  recode 

在RI中，可以通过执行以下操作来创建所需的输出： data = c(rep(1.5, 7), rep(2.5, 2), rep(3.5, 8), rep(4.5, 3), rep(5.5, 1), rep(6.5, 8)) plot(density(data, bw=0.5)) 在python（带有matplotlib）中，我得到的最接近的是一个简单的直方图： import matplotlib.pyplot as plt data = [1.5]*7 + [2.5]*2 + [3.5]*8 + [4.5]*3 + [5.5]*1 + [6.5]*8 plt.hist(data, bins=6) plt.show() 我还尝试了normed = True参数，但除了尝试使高斯拟合直方图外什么也没有。 我的最新尝试是围绕scipy.stats和gaussian_kde，以下是网上的示例，但到目前为止我一直没有成功。

122 python  r  numpy  matplotlib  scipy 

与plyr我一起工作时，我经常发现将它用于adply必须应用于每一行的标量函数很有用。 例如 data(iris) library(plyr) head( adply(iris, 1, transform , Max.Len= max(Sepal.Length,Petal.Length)) ) Sepal.Length Sepal.Width Petal.Length Petal.Width Species Max.Len 1 5.1 3.5 1.4 0.2 setosa 5.1 2 4.9 3.0 1.4 0.2 setosa 4.9 3 4.7 3.2 1.3 0.2 setosa 4.7 4 4.6 3.1 1.5 0.2 setosa 4.6 5 5.0 3.6 1.4 …

121 r  plyr  dplyr 

我环顾了StackOverflow，但是找不到针对我的问题的解决方案，该解决方案涉及将行附加到R数据帧。 我正在初始化一个空的2列数据帧，如下所示。 df = data.frame(x = numeric(), y = character()) 然后，我的目标是遍历值列表，并在每次迭代中将一个值附加到列表末尾。我从以下代码开始。 for (i in 1:10) { df$x = rbind(df$x, i) df$y = rbind(df$y, toString(i)) } 我也试图功能c，append以及merge没有成功。如果您有任何建议，请告诉我。

121 r  merge  append  dataframe  rows 

我有一个数据框，我想计算每个组中的行数。我通常使用该aggregate函数对数据求和，如下所示： df2 <- aggregate(x ~ Year + Month, data = df1, sum) 现在，我想对观察值进行计数，但似乎找不到的正确论点FUN。凭直觉，我认为应该是这样的： df2 <- aggregate(x ~ Year + Month, data = df1, count) 但是，没有这种运气。 有任何想法吗？ 一些玩具数据： set.seed(2) df1 <- data.frame(x = 1:20, Year = sample(2012:2014, 20, replace = TRUE), Month = sample(month.abb[1:3], 20, replace = TRUE))

121 r  dataframe  aggregate  r-faq 

使用我编写的R函数时出现错误： Warning messages: 1: glm.fit: algorithm did not converge 2: glm.fit: algorithm did not converge 我做了什么： 逐步执行功能 添加打印以找出错误发生在哪行提示两个不应使用的功能glm.fit。他们是window()和save()。 我的一般方法包括添加print和stop命令，以及逐行浏览功能，直到找到异常为止。 但是，我不清楚使用那些错误源于代码的技术。我什至不确定代码中的哪个函数依赖于glm.fit。我该如何诊断该问题？

120 r  debugging  r-faq 

我已经花了几个小时在文档和StackOverflow上查找，但是似乎没有解决方案可以解决我的问题。使用时ggplot，即使它在我的数据框中，我也无法在图例中获得正确的文本。我已经尝试过scale_colour_manual，例如scale_fill_manual使用不同的值。labels=c("T999", "T888")", "cols" 这是我的代码： T999 <- runif(10, 100, 200) T888 <- runif(10, 200, 300) TY <- runif(10, 20, 30) df <- data.frame(T999, T888, TY) ggplot(data = df, aes(x=T999, y=TY, pointtype="T999")) + geom_point(size = 15, colour = "darkblue") + geom_point(data = df, aes(x=T888, y=TY), colour = 'red', size = 10 ) …

120 r  text  ggplot2  label