Как использовать IfElse функцию в г

Question

surveywithoutmissing <- data.frame(Collaboration_A = rep(c(0 "times", 1 "time", 2-4 "times", >4 "times", NA), 
            "times" = c(0, 20, 26, 11, 118)), 
      Collaboration_B = rep(c(0 "times", 1 "time", 2-4 "times",>4 "times", NA), 
            "times" = c(0, 22, 33, 16, 104)), 
      Collaboration_C = rep(c(0 "times", 1 "time", 2-4 "times", >4 "times", NA), 
            "times" = c(0, 16, 23, 9, 127)), 
      Collaboration_D = rep(c(0 "times", 1 "time", 2-4 "times", >4 "times", NA), 
            "times" = c(0, 24, 12, 4, 135))) 

Это не будет работать, и это дает ошибочный ответ:

Error: unexpected ')' in ""times" = c(0, 24, 12, 4, 135))"

Answer 1

Я не совсем уверен, что вы пытаетесь сделать. Но мне кажется, что вы пытаетесь повторить каждый элемент (например, «0», «> 4») с разными номерами. То есть вы, кажется, повторяете «0», «1», «2-4», «> 4», NA с различным количеством повторений для каждой совместной работы. Здесь я позаботилась о Collaboration_A и В.

# Set up the number of repetition 
ana <- c(0, 20, 26, 11, 118) 
bobby <- c(0, 22, 33, 16, 104) 

foo <- data.frame(Collaboration_A = rep(c("0", "1", "2-4", ">4", NA), ana), 
        Collaboration_B = rep(c("0", "1", "2-4", ">4", NA), bobby), 
        stringsAsFactors = FALSE) 

Answer 2

Если вы хотите, чтобы слово «время» и «время» должны быть включены, они должны пойти в кавычки.

surveywithoutmissing <- data.frame(Collaboration_A = rep(c("0 times", "1 time", "2-4 times", ">4 times", NA), 
            "times" = c(0, 20, 26, 11, 118)), 
      Collaboration_B = rep(c("0 times", "1 time", "2-4 times", ">4 times", NA), 
            "times" = c(0, 22, 33, 16, 104)), 
      Collaboration_C = rep(c("0 times", "1 time", "2-4 times", ">4 times", NA), 
            "times" = c(0, 16, 23, 9, 127)), 
      Collaboration_D = rep(c("0 times", "1 time", "2-4 times", ">4 times", NA), 
            "times" = c(0, 24, 12, 4, 135))) 

который производит

> surveywithoutmissing 
    Collaboration_A Collaboration_B Collaboration_C 
1   1 time   1 time   1 time 
2   1 time   1 time   1 time 
3   1 time   1 time   1 time 
4   1 time   1 time   1 time 
5   1 time   1 time   1 time 
6   1 time   1 time   1 time 
7   1 time   1 time   1 time 
8   1 time   1 time   1 time 
9   1 time   1 time   1 time 
10   1 time   1 time   1 time 
11   1 time   1 time   1 time 
12   1 time   1 time   1 time 
13   1 time   1 time   1 time 
14   1 time   1 time   1 time 
15   1 time   1 time   1 time 
16   1 time   1 time   1 time 
17   1 time   1 time  2-4 times 
18   1 time   1 time  2-4 times 
19   1 time   1 time  2-4 times 
20   1 time   1 time  2-4 times 
21  2-4 times   1 time  2-4 times 
22  2-4 times   1 time  2-4 times 
23  2-4 times  2-4 times  2-4 times 
24  2-4 times  2-4 times  2-4 times 
25  2-4 times  2-4 times  2-4 times 
26  2-4 times  2-4 times  2-4 times