R语言报错 错误: Aesthetics must be either length 1 or the same as the data (4):

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

新手小白，为了完成毕业论文，从网上找的循环作图代码，改了一下之后运行就报错了，不知道问题出在哪里，还请各位大佬指点！

报错：错误: Aesthetics must be either length 1 or the same as the data (4): x
代码如下：
setwd("C:\\Users\\DELL\\Desktop")
library(ggplot2)
bohaibay <- read.table("C:/Users/DELL/Desktop/test217.csv", header = TRUE, sep = ",")
# Make plots.
plot_list = list()
for (i in 1:10) {
  new <- bohaibay[which(bohaibay$id == i), ]
  year = new[,3]
  avg = new[,4]
  p = ggplot(new, aes(x=year,y=avg)) +
    geom_line()
  plot_list[] = p
}
# Save plots to tiff. Makes a separate file for each plot.
for (i in 1:10) {
  file_name = paste("bohaibay_plot_", i, ".tiff", sep="")
  tiff(file_name)
  print(plot_list[])
  dev.off()
}
*在此处报错
# Another option: create pdf where each page is a separate plot.
pdf("plots9.pdf")
for (i in 1:10) {
  print(plot_list[])
}
*在此处报错
dev.off()

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Aesthetics either length Must leng

把数据发给我给你看。

把数据发给我给你看。