用for循环批量画图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有一个叫icadata的数据，其中的第2到13列和第16列是连续型变量，我想分别对他们画直方图，但一个一个画太麻烦，我就想到了下面的循环，但是运行不过去，请问有人知道具体什么原因么，先谢谢大家

for(i in c(2:13,16)){
  ggplot(data = icadata) +
    geom_histogram(mapping = aes(x = icadata[,i]), binwidth = 0.5)
}

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：for循环 For histogram Mapping gplot

Don't know how to automatically pick scale for object of type tbl_df/tbl/data.frame. Defaulting to continuous.
Error in is.finite(x) : default method not implemented for type 'list'。这是程序报的错，我不太明白

你试试看这样行不行

1. library(ggplot2)
   
2. icadata <- data.frame(rnorm(100), rpois(100, 2), rbeta(100,2,4), rgamma(100, 2, 1))
   
3. 
   
4. p <- list()
   
5. for(i in c(1, 3:4)){
   
6.   p[[i]] <- ggplot(data = icadata, aes(x = icadata[,i])) + geom_histogram(binwidth = 0.5)
   
7. }

复制代码

owenqi 发表于 2019-12-22 05:33
你试试看这样行不行

你这段代码我是可以运行的，但是我换成自己的数据就不行了，还是报(Don't know how to automatically pick scale for object of type tbl_df/tbl/data.frame. Defaulting to continuous.
Error in is.finite(x) : default method not implemented for type 'list')的错，不知道是不是因为我的数据是tbl_df的类型

owenqi 发表于 2019-12-22 05:33
你试试看这样行不行

好像是这里的问题，应该把icadata[,i]改成icadata[]

p[[2]]<-ggplot(data = icadata, aes(x = icadata[[2]])) + geom_histogram()
p[[3]]<-ggplot(data = icadata, aes(x = icadata[[3]])) + geom_histogram()
p[[4]]<-ggplot(data = icadata, aes(x = icadata[[4]])) + geom_histogram()
p[[5]]<-ggplot(data = icadata, aes(x = icadata[[5]])) + geom_histogram()
p[[6]]<-ggplot(data = icadata, aes(x = icadata[[6]])) + geom_histogram()
p[[7]]<-ggplot(data = icadata, aes(x = icadata[[7]])) + geom_histogram()
p[[8]]<-ggplot(data = icadata, aes(x = icadata[[8]])) + geom_histogram()
p[[9]]<-ggplot(data = icadata, aes(x = icadata[[9]])) + geom_histogram()
p[[10]]<-ggplot(data = icadata, aes(x = icadata[[10]])) + geom_histogram()
p[[11]]<-ggplot(data = icadata, aes(x = icadata[[11]])) + geom_histogram()
p[[12]]<-ggplot(data = icadata, aes(x = icadata[[12]])) + geom_histogram()
p[[13]]<-ggplot(data = icadata, aes(x = icadata[[13]])) + geom_histogram()
p[[16]]<-ggplot(data = icadata, aes(x = icadata[[16]])) + geom_histogram()

p <- list()
for(i in c(2:13,16) ){
  p[[i]]<-ggplot(data = icadata, aes(x = icadata[[i]])) + geom_histogram()
}


但又遇到问题，上面分开画是可以的，但写成循环以后，p[[2]],p[[3]],...p[[16]]全都变成一样的了

有人晓得这两者的区别么

你可以对比一下两个数据框（dataframe）的区别，因为我也看不到你的数据，所以我只能自己生成数据演示。

1. str(icadata)

复制代码

thanks for sharing

学习一下。