2

このコードをループに置き換えるにはどうすればよいですか?

m1 <- ggplot(foo)
m2 <- ggplot(foo)
...
m9 <- ggplot(foo)

magic()を置き換えるようなものが必要だと思いget()ますが、getはここでは機能しませんでした。

for (i in 1:9){
  magic(i) <- ggplot(foo)
}
4

3 に答える 3

5

リストを使用する:

out <- list()

for (i in 1:9){
  out[[i]] <- ggplot(foo)
}
于 2012-10-24T23:55:32.737 に答える
3

これは機能します:

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"
于 2012-10-24T22:29:10.673 に答える
2

このようなものが機能するはずです:

for (i in 1:9) {
  name <- paste("m", i, sep="")
  assign(name, ggplot(foo))
}
于 2012-10-24T22:37:53.373 に答える