for循环

for循环

依次从目标对象中取出元素进行运算

基本语法和格式

for(n in x) {expr}
n每次从x中顺序取值，带入到后面的expr中进行运算。

使用for和length找到所有月平均销量大于平均值的商品

mysale<-data.frame(list(id=c(1,2,3,4,5,6),销量=c(152,201,92,105,197,385)))
mysale
meansale=mean(mysale$销量) #提取数据框中的销量，求平均
for (i in 1:length(mysale$销量))#在销量里，从第一个元素开始至长度结束的元素依次提取放入i中，理解为使用for定义了i。
+{ if (mysale$销量[i] >= meansale) #用if函数设定i中大于等于平均值的元素，
+{print(paste(mysale$id[i],mysale$销量[i])) }}#paste合并字符串后输出。

运行结果

> mysale<-data.frame(list(id=c(1,2,3,4,5,6),销量=c(152,201,92,105,197,385)))
> print(mysale)
  id 销量
1  1  152
2  2  201
3  3   92
4  4  105
5  5  197
6  6  385
> meansale=mean(mysale$销量)
> for (i in 1:length(mysale$销量)){
+   if (mysale$销量[i] >= meansale) {
+     print(paste(mysale$id[i],mysale$销量[i]))
+   }
+ }
[1] "2 201"
[1] "5 197"
[1] "6 385"
> meansale
[1] 188.6667