Question

此代码中的所有内容都有效，但在查找具有此部分mean(df3[[i]])的所有变量的均值时，它仅显示一个均值而不显示其他16个均值。使用for循环什么都不做

for(i in 1:17){ mean(df3[[i]]) }

有人可以解释如何纠正这个问题吗？

setwd("C:/Users/A/Desktop/ResearchData")
library (circular)
df<- read.csv("Direction.csv", header = TRUE)
df1 <- df [ which(df$Month==1 & df$Day>0 & df$Day <32) ,]
df2 <- df1[c(-1,-2,-3)]
df3<- lapply(df2, function(df2) circular(df2, units='degrees', template='geographics'))
dens<- lapply(df3, density.circular, bw =20)

par(mfrow=c(5,4), oma=c(2,1.3,2,2), mar=c(1.5,2,2,1), tcl=-0.2, mgp=c(0,1,0))
cl = c("lightblue", "red", "lightgreen", "orange2", "seashell4", "sienna", "olivedrab",
       "darkkhaki", "yellow3", "bisque2", "cornflowerblue", "magenta", 
       "black", "brown", "forest green", "navy", "burlywood4")
titles <- c("1000mb", "925mb", "850mb", "700mb", "600mb", "500mb", "400mb", "300mb", 
            "250mb", "200mb", "150mb", "100mb","70mb", "50mb", "30mb", "20mb", "10mb")
for(i in 1:17){
  plot(dens[[i]], main = titles[i], col = cl[i])     
}
title ("Probability Density Function of Height Over 30 Years for January", outer = TRUE) 

mean(df3[[i]])


par(mfrow=c(5,4), oma=c(2,1.3,2,2), mar=c(1.5,2,2,1), tcl=-0.2, mgp=c(0,1,0))
titles <- c("1000mb", "925mb", "850mb", "700mb", "600mb", "500mb", "400mb", "300mb", 
            "250mb", "200mb", "150mb", "100mb","70mb", "50mb", "30mb", "20mb", "10mb")
for(i in 1:17){
  plot(mean(df3[[i]]), main = titles[i],)

Answer 1

mean语句应该在for循环中

for(i in 1:17){
  plot(dens[[i]], main = titles[i], col = cl[i]) 
  print(mean(df3[[i]]))
}
title ("Probability Density Function of Height Over 30 Years for January", outer = TRUE)

for循环用于显示R中多个变量的均值

1 个答案: