代码之家 › 专栏 › 技术社区 › shakesmilk

R中的For循环不使用绘图功能

pca plot for-loop r

shakesmilk · 技术社区 · 2 年前

我正在尝试一种方法,找出如何使用for循环一次打印多个绘图,因为我对R非常陌生,似乎找不到这样做的方法

我有40个主要组件,我想通过循环来绘制,但我只能通过每次调用函数来单独完成;for循环什么都不做

以下是显示或绘制主要部件的功能

showPrincipalComponents <- function(PCNumber) {
tidied_pca %>%
filter(PC == PCNumber) %>%
top_n(11, abs(Contribution)) %>%
mutate(Tag = reorder(Tag, Contribution)) %>%
ggplot(aes(Tag, Contribution, fill = Tag)) +
geom_col(show.legend = FALSE, alpha = 0.8) +
theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5), 
      axis.ticks.x = element_blank()) + 
labs(x = "Personal attributes",
     y = "Principal Component Importance")

}

这项工作:

showPrincipalComponents(comp[1]) 
showPrincipalComponents(comp[2]) 
showPrincipalComponents(comp[3]) 
showPrincipalComponents(comp[4])

这不会(执行时不返回任何内容):

x=1:40
for (i in x){showPrincipalComponents(comp[i])}

任何帮助都将不胜感激

1 回复 | 直到 2 年前

TimTeaFan 2 年前

你必须做两件事才能在 for 环

(1) 正如@neilfws已经在评论中指出的那样 对于 需要对回路进行分类(例如。 out[[i]] <- ).

(2) 自 ggplot 使用惰性评估仅执行(1)将生成四十次相同的绘图(始终是最后一个绘图, i = 40 ). 如果你想坚持 对于 循环而不是 lapply 您可以将函数调用包装为 eval(bquote()) 和评估 .(i) .

x <- 1:40
out <- vector("list", length = length(x))

for (i in x) {
  out[[i]] <- eval(bquote(
    showPrincipalComponents(comp[.(i)])
  ))
}
out

推荐文章

Sameer Mahajan · python spark:使用PCA缩小最相关的特性

6 年前

Jorge Kageyama · 使用ggplot2绘制未定数量的绘图

6 年前

Elia · 主成分分析-个体图

6 年前

Columbiafashion · sklearn中估计器管道的参数clf无效

6 年前

havakok · 二次MATLAB主元分析中新点的投影

6 年前

Andrew_457 · 为什么我的自动编码器没有给出简化的表示?

6 年前

user 123342 · Predict()新数据进入R中的PCA空间

6 年前

Tanmay Bhatnagar · 预测时如何使用主成分分析?

7 年前

Steve · 将新文档绘制到散点图

7 年前

gB08 · 对具有大量零特征的数据进行归一化/标准化是否好

7 年前