R回路，如果其他 [英] R loop and if else

问题描述

我想在循环值赋给变量斧头。我的code是：

  AX＆LT; -0
 为（i的I：4）{
 如果（ⅰ%% 4 == 1）
 {
    AX [1]  - ;  - 一
 }
 否则如果（ⅰ%% 4 == 2）
 {
     AX [1]  - ;  - 二
 }
 否则，如果（我%% 4 == 3）
 {
     AX [1]  - ;  - 三化
 }
其他
 {
     AX [1]  - ;  - 四个一
 }
 

}

我希望我得到了斧头[1]，AX [2]，AX [3]和AX [4]

 一二三四
 

但我得到了：

 0NA​​ NA四个一
 

这仅仅是一个尝试，真正的code是多长。但0nly主要问题是即将各自的数组变量分配值。什么错呢？

在这里我想补充的真正code

  #library（sqldf）
N = 4
a = 0时
B = 0
C = 0
D = 0
E = 0
F = 0
G = 0
H = 0Sui_Q1_STS＆LT; -0
Sui_Q1_TS＆LT; -0
Sui_Q1_S＆LT; -0
Sui_Q1_SS＆LT; -0
Sui_Q2_STS＆LT; -0
Sui_Q2_TS＆LT; -0
Sui_Q2_S＆LT; -0
Sui_Q2_SS＆LT; -0
为（i的1：N）{ 如果（ⅰ%% 4 == 1）
 {
A＆LT;从睾丸-sqldf（SELECT COUNT（[X.0]）其中[X.0] ='Sangat Tidak Setuju'和（起始日期LIKE'％11月5日/ 2015 00：％或起始日期，如11％ / 05/2015年01：％或起始日期，如％11/05/2015年02：％或起始日期，如％11/05/2015年03：％或起始日期，如％11/05/2015年04：％或起始日期，如％11/05/2015年05：％或起始日期，如％11/05/2015年06：00％'））
＃B C D E F G和H也sqldf
Sui_Q1_STS [1]  - ; -as.numeric（一）
Sui_Q1_TS [1]  - ; -as.numeric（二）
Sui_Q1_S [1]  - ; -as.numeric（三）
Sui_Q1_SS [1]  - ; -as.numeric（四）
Sui_Q2_STS [1]  - ; -as.numeric（五）
Sui_Q2_TS [1]  - ; -as.numeric（F）
Sui_Q2_S [1]  - ; -as.numeric（G）
Sui_Q2_SS [1]  - ; -as.numeric（H）
Sui_Q1＆LT; -list（）
Sui_Q1 [[I]]下; -cbind（Sui_Q1_STS [I]，Sui_Q1_TS [I]，Sui_Q1_S [I]，Sui_Q1_SS [I]）
Sui_Q2＆LT; -list（）
Sui_Q2 [[I]]下; -cbind（Sui_Q2_STS [I]，Sui_Q2_TS [I]，Sui_Q2_S [I]，Sui_Q2_SS [I]）
总[1]  - ; -Sui_Q1 [[Ⅰ] [1] + Sui_Q1 [[Ⅰ] [2] + Sui_Q1 [[I]] [1,3] + Sui_Q1 [[I]] [，4]
}
   否则如果（ⅰ%% 4 == 2）{  在SQL #only不同
   }
   否则如果（ⅰ%% 4 == 3）{  在SQL #only不同
}
   否则，如果（我%% 4 == 0）{   在SQL #only不同
}
 

}

和我有：

 ＆GT; Sui_Q1
[[1]]
空值[[2]
空值[3]]
空值[[4]
     [1] [2] [3] [，4]
[1] 0 0 4 4
 

解决方案

如果我们需要将数字转换为英文单词

 库（英文）
英语（V1）
＃[1]二一三三三四二四四两
 

---

或使用基 - [R 无任何环

  C（四有，一，二，三化）[as.numeric（因子（（V1 %% 4 == 1）+
             2 *（V1 %% 4 == 2）+ 4 *（V1 %% 4 == 3）））]
＃[1]二一三化三化三四二四有四有两化
 

---

如果我们真的需要一个循环

  AX＆LT;  - 数字（4）
 为（i的1：4）{
  如果（ⅰ%% 4 == 1）{
  AX [1]  - ;  - 一
  }否则如果（ⅰ%% 4 == 2）{
 AX [1]  - ;  - 二
 }否则如果（ⅰ%% 4 == 3）{
  AX [1]  - ;  - 三化
 }其他{
  AX [1]  - ;  - 四个一
  }
 }斧头
＃[1]一二三四
 

数据

  set.seed（24）
V1＆LT;  - 样品（1：4，10，替换= TRUE）
 

I would like to assign variable 'ax' with a value in looping. My code is :

 ax<-0
 for (i in i:4){
 if(i%%4==1)
 {
    ax[i]<-"one"
 }
 else if(i%%4==2)
 {
     ax[i]<-"two"
 }
 else if(i%%4==3)
 {
     ax[i]<-"three"
 }
else
 {
     ax[i]<-"four"
 }

}

I expect I got ax[1], ax[2], ax[3], and ax[4] ,

"one"    "two"     "three"     "four"

but I got :

"0"    NA     NA     "four"

This is just a try, a real code are much more longer. but the 0nly main problem is about assigning value to respective array variable. Anything wrong with this?

here I add the real code

#library(sqldf)
n = 4
a=0
b=0
c=0
d=0
e=0
f=0
g=0
h=0

Sui_Q1_STS<-0
Sui_Q1_TS<-0
Sui_Q1_S<-0
Sui_Q1_SS<-0
Sui_Q2_STS<-0
Sui_Q2_TS<-0
Sui_Q2_S<-0
Sui_Q2_SS<-0
for (i in 1:n){

 if(i%%4==1)
 {
a<-sqldf("SELECT count([X.0]) from testes where [X.0]='Sangat Tidak Setuju' and (StartDate like '%11/05/2015 00:%' or StartDate like '%11/05/2015 01:%' or StartDate like '%11/05/2015 02:%' or StartDate like '%11/05/2015 03:%' or StartDate like '%11/05/2015 04:%' or StartDate like '%11/05/2015 05:%' or StartDate like '%11/05/2015 06:00%')")
#b c d e f g and h are also sqldf
Sui_Q1_STS[i]<-as.numeric(a)
Sui_Q1_TS[i]<-as.numeric(b)
Sui_Q1_S[i]<-as.numeric(c)
Sui_Q1_SS[i]<-as.numeric(d)
Sui_Q2_STS[i]<-as.numeric(e)
Sui_Q2_TS[i]<-as.numeric(f)
Sui_Q2_S[i]<-as.numeric(g)
Sui_Q2_SS[i]<-as.numeric(h)


Sui_Q1<-list()
Sui_Q1[[i]]<-cbind(Sui_Q1_STS[i],Sui_Q1_TS[i],Sui_Q1_S[i],Sui_Q1_SS[i])
Sui_Q2<-list()
Sui_Q2[[i]]<-cbind(Sui_Q2_STS[i],Sui_Q2_TS[i],Sui_Q2_S[i],Sui_Q2_SS[i])
Total[i]<-Sui_Q1[[i]][,1]+Sui_Q1[[i]][,2]+Sui_Q1[[i]][,3]+Sui_Q1[[i]][,4]
}
   else if(i%%4==2){

  #only different in SQL
   }
   else if(i%%4==3){

  #only different in SQL
}
   else if(i%%4==0){

   #only different in SQL
}

}

and I got :

> Sui_Q1
[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

[[4]]
     [,1] [,2] [,3] [,4]
[1,]    0    0    4    4

解决方案

If we need to convert the numbers to english words

library(english)
english(v1)
#[1] two   one   three three three four  two   four  four  two  

---

Or using base R without any loop

c("four", "one", "two", "three")[as.numeric(factor((v1%%4==1) + 
             2*(v1%%4==2) + 4*(v1%%4==3)))]
#[1] "two"   "one"   "three" "three" "three" "four"  "two"   "four"  "four"  "two"  

---

If we really need a loop

 ax <- numeric(4)
 for(i in 1:4){
  if(i%%4 ==1){
  ax[i] <- "one"
  } else if (i%%4 ==2){
 ax[i] <- "two"
 }else if (i%%4 ==3){
  ax[i] <- "three"
 } else {
  ax[i] <- "four"
  }
 }

ax
#[1] "one"   "two"   "three" "four" 

data

set.seed(24)
v1 <- sample(1:4, 10, replace=TRUE)

这篇关于R回路，如果其他的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！