このコードをループに置き換えるにはどうすればよいですか?
m1 <- ggplot(foo)
m2 <- ggplot(foo)
...
m9 <- ggplot(foo)
magic()を置き換えるようなものが必要だと思いget()
ますが、getはここでは機能しませんでした。
for (i in 1:9){
magic(i) <- ggplot(foo)
}
このコードをループに置き換えるにはどうすればよいですか?
m1 <- ggplot(foo)
m2 <- ggplot(foo)
...
m9 <- ggplot(foo)
magic()を置き換えるようなものが必要だと思いget()
ますが、getはここでは機能しませんでした。
for (i in 1:9){
magic(i) <- ggplot(foo)
}
リストを使用する:
out <- list()
for (i in 1:9){
out[[i]] <- ggplot(foo)
}
これは機能します:
p <- qplot(data = mtcars, wt, mpg)
for(i in 1:9) assign(paste0("m",i),p)
ls()
[1] "i" "m1" "m2" "m3" "m4" "m5" "m6" "m7" "m8" "m9" "p"
このようなものが機能するはずです:
for (i in 1:9) {
name <- paste("m", i, sep="")
assign(name, ggplot(foo))
}