R语言 循环在一页PDF上画多个图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

那位大神帮忙看看下面的代码为什么画不出来图，哪里出问题了？十分感谢！！！

for ( count1 in 1:n){
  frame()
  mat <- matrix(c(1,2,3,4,5,6),nrow=3,byrow=TRUE)
  layout(mat)

for(count2 in 1:6){

data %>% filter(店code==店名[(count1-1)*6+count2]) -> temp_data
temp_data$日期 <- paste(substring(temp_data$日期,1,4),"-",substring(temp_data$日期,5,6),"-",substring(temp_data$日期,7,8),sep="")
temp_data$日期 <- as.Date(temp_data$日期)

temp_data %>% arrange(日期) -> temp_data
temp_data %>% mutate(日数=row_number()) ->temp_data
qplot(日数,销售额/个数,data=temp_data,geom="line")
result <- lm(销售额/个数~日数, data=temp_data)
ggplot() +
xlab("经过日数")+
ylab("单价")+
ggtitle(paste(店名[(count1-1)*6+count2],"の单价"))+
layer(
  data=temp_data,
  mapping=aes(x=日数, y=销售额/个数),
  geom="line",
  stat="identity",
  position="identity",
  colour="blue",
  alpha=0.5
)+
layer(
  data=temp_data,
  mapping=aes(x=日数, y=result$coefficients[1]+result$coefficients[2]*日数),
  geom="line",
  stat="identity",
  position="identity",
  colour="red",
  alpha=0.5
)
}
file_name = paste("ID=1_","k=",count1,".pdf",sep="")
dev.copy2pdf(file=file_name)
}

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：PDF R语言 Number Result filter frame filter result 销售额