小编Joc*_*öll的帖子

有没有办法让R/RStudio将绘图复制到具有自定义大小的剪贴板？

RStudio具有此功能,但您必须每次都定义大小,并且有一些额外的点击,我相信这是可以避免的.

我尽力保存为jpeg或其他file="clipboard"- 然后 - 在绘图后 - dev.off().没有错误消息,但剪贴板中也没有任何内容.

这是一个例子:

data(mtcars)
jpeg(file = "clipboard",width = 800, height = 600, units = "px", pointsize = 12,
     quality = 100,
     bg = "white", res = NA, family = "", restoreConsole = T)
hist(mtcars$mpg)
dev.off()

关于如何实现这一点的任何想法？

我有一个庞大的数据框架.一列是1到2之间的整数.我需要的是在此列中查找具有多个特定值的连续行的方法,将这些行子集化并稍后将其处理为图形.

我附上了一个小例子,它至少完成了一些所需的工作:我能够打印出我正在寻找的子集.但仍有两个问题:

• 我想R中有更聪明的方法可以在完整的data.frame上应用"for"循环.任何提示？
• 我必须在哪个命令中放入"print"命令来存储临时data.frame？由于子集的长度不同,我想我需要一个列表...

我已经看过聚合或ddply,但无法提出解决方案.

任何帮助都非常感谢.

test<-c(rep(1,3),rep(2,5),rep(1,3),rep(2,3),rep(1,3),rep(2,8),rep(1,3)) 
letters<-c("a","b","c","d")
a1<-as.data.frame(cbind(test,letters))

BZ<-2   #The variable to look for
n_BZ=4  #The number of minimum appearences

k<-1  # A variable to be used as a list item index in which the subset will be stored

for (i in 2:nrow(a1)){
  if (a1$test[i-1]!=BZ & a1$test[i]==BZ)      # When "test" BECOMES "2"
    {t_temp<-a1[i,]}                            #... start writing a temporary array
  else if (a1$test[i-1]==BZ & a1$test[i]==BZ) # When "test" REMAINS "2"
    {t_temp<-rbind(t_temp,a1[i,])}              #... continue writing a temporary array 
  else if (a1$test[i-1]==BZ …

我想安排几个 ggplot2 绘图。对于直方图来说，它工作得非常好，代码如下：

df<-NULL
df$Temp<-rnorm(mean=20,sd=3,n=100) 
df$Modul<-rep(seq(1,4,1),25)
df<-as.data.frame(df)   

qplot(Temp, data=df, geom="histogram",binwidth=1)+
    facet_grid(Modul ~ .)

现在我想要累积直方图，我遵循了这个 recipy。但它给了我错误的总和：

qplot(Temp, data=df, geom="histogram",binwidth=1)+
geom_histogram(aes(y=cumsum(..count..)),binwidth=1)+
facet_grid(Modul ~ .)

虽然我大致了解发生了什么，但我还不够专业来解决这个问题。有什么提示吗？

最好的问候，约亨