ifelse() 使用 mutate 無法正常工作：R

Question

我對 ifelse confition 有一點懷疑。 我已經閱讀了許多文章並嘗試了不同的解決方案，但我無法解決它。 請幫幫我。

我有一列從 0:59 開始的數字，它像這樣重復出現 500 行。 我正在嘗試創建另一列，將 0:29 划分為 0，將 30:59 划分為 30。

數據：

> data$Minute
   [1]  0  0  0  1  1  1  2  2  2  2  2  2  3  3  4  4  4  5  5  5  5  5  6  6  6  7  7  7  7  7  8  8  8  8  8  8  9
  [38] 10 10 10 10 10 10 10 10 10 11 11 11 11 11 11 11 11 11 11 12 12 12 12 13 13 13 13 13 14 14 14 14 14 14 15 15 15
  [75] 15 15 15 15 15 15 16 16 16 16 16 17 17 18 18 18 18 18 19 19 19 19 20 20 20 20 20 20 20 20 21 21 21 21 21 21 21
 [112] 22 22 22 22 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 24 24 24 24 24 24 24 24 24 25 25 25 25 25 25 25 25 25
 [149] 26 26 26 26 26 26 26 26 26 26 27 27 27 27 27 27 27 27 27 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 29
 [186] 29 29 29 29 29 29 29 29 29 29 29 30 30 30 30 30 30 30 30 30 30 30 30 30 31 31 31 31 31 31 31 31 31 31 31 31 31
 [223] 31 32 32 32 32 32 33 33 33 33 33 33 33 33 33 33 33 34 34 34 34 34 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35
 [260] 35 35 35 36 36 36 36 36 36 36 36 37 37 37 37 37 37 37 37 37 38 38 38 38 38 38 38 38 38 38 39 39 39 39 39 39 39
 [297] 39 39 40 40 40 40 40 40 40 40 40 40 40 40 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 42 42 42 42 42 42 42
 [334] 42 42 42 42 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 44 44 44 44 44 44 44 44 44 45 45 45 45 45 45 45 45
 [371] 45 45 45 45 45 45 45 45 46 46 46 46 46 46 46 47 47 47 47 47 47 47 47 47 47 47 47 47 48 48 48 48 48 48 48 48 48
 [408] 48 48 48 49 49 49 49 49 49 49 50 50 50 50 50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51 52 52 52
 [445] 52 52 52 52 52 52 52 52 52 53 53 53 53 53 53 53 53 54 54 54 54 54 54 54 54 54 54 54 55 55 55 55 55 55 55 55 55
 [482] 55 56 56 56 56 56 56 56 56 56 56 56 56 56 57 57 57 57 57 57 57 57 58 58 58 58 58 58 58 58 58 59 59 59 59 59 59
 [519] 59 59 59 59 59 59 59  0  0  0  0 

代碼：

data<- data %>%  mutate(Period = ifelse(((Minute >=0) && (Minute <= 30)),0, 30) )           

在運行此代碼時，我只將所有數據點的 Period 值設為 0。 你能幫我解決這個小問題嗎？

提前致謝！

Answer 1

嘗試這個

data %>%  mutate(Period = ifelse(minute <= 30, 0, 30))