csvデータを読み込んで,mutate()
とif_else()
を使って新しい列を追加しようとしています.
csvデータは20行あります.
ex.csv
name value
hoge 5
huga 7
piyo 4
puka 2
...
以下コード
library('tidyverse')
d <- read.csv('ex.csv', sep = '\t', header = T)
d2 <- d %>%
mutate(num = if_else(row_number() == 1,
value,
if_else(d2[row_number() - 1, 1] == 'hoge',
d2[row_number() - 1, 2] + value,
value)))
エラー
Error in `mutate()`:
ℹ In argument: `num = if_else(...)`.
Caused by error in `if_else()`:
! `true` must have size 19, not size 20.
Run `rlang::last_trace()` to see where the error occurred.
> rlang::last_trace()
<error/dplyr:::mutate_error>
Error in `mutate()`:
ℹ In argument: `num = if_else(...)`.
Caused by error in `if_else()`:
! `true` must have size 19, not size 20.
---
Backtrace:
▆
1. ├─d_test %>% ...
2. ├─dplyr::mutate(...)
3. ├─dplyr:::mutate.data.frame(...)
4. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
5. │ ├─base::withCallingHandlers(...)
6. │ └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
7. │ └─mask$eval_all_mutate(quo)
8. │ └─dplyr (local) eval()
9. ├─dplyr::if_else(...)
10. └─dplyr::if_else(...)
エラーメッセージの true` must have size 19, not size 20.
がどのように解決できるのかわからず困っています.
お力をお貸しいただけますと幸いです.