我想向数据集 (CTDB) 中的一组列添加后缀。例如,我有以下列,我想在末尾添加“_Child”。
该子集是包含 100 多列的较大数据集的一部分,我不想重写每个列名称。
[9] "SCARED_BREATHE"
[10] "SCARED_HEADACHE_SCHOOL"
[11] "SCARED_DISLIKE_STRANGERS"
[12] "SCARED_SLEEP_AWAY_HOME"
[13] "SCARED_LIKE_ME"
[14] "SCARED_PASS_OUT"
[15] "SCARED_NERVOUS"
[16] "SCARED_FOLLOW_PARENT"
[17] "SCARED_LOOK_NERVOUS"
[18] "SCARED_NERVOUS_AROUND_STRANGER"
[19] "SCARED_STOMACHACHE_SCHOOL"
[20] "SCARED_FEEL_CRAZY"
[21] "SCARED_SLEEP_ALONE"
[22] "SCARED_NOT_AS_GOOD"
[23] "SCARED_NOT_REAL"
[24] "SCARED_NIGHTMARE_PARENTS"
[25] "SCARED_SCHOOL"
[26] "SCARED_HR_FAST"
[27] "SCARED_SHAKY"
[28] "SCARED_NIGHTMARE"
[29] "SCARED_THINGS_WORK_OUT"
[30] "SCARED_SWEAT"
[31] "SCARED_WORRY"
[32] "SCARED_NO_REASON"
[33] "SCARED_ALONE_AT_HOME"
[34] "SCARED_HARD_TO_TALK"
[35] "SCARED_CHOKE"
[36] "SCARED_WORRY_TOO_MUCH"
[37] "SCARED_AWAY_FROM_FAMILY"
[38] "SCARED_PANIC_ATTACK"
[39] "SCARED_WORRY_PARENTS"
[40] "SCARED_SHY_STRANGERS"
[41] "SCARED_FUTURE"
[42] "SCARED_THROW_UP"
[43] "SCARED_HOW_WELL_I_DO"
[44] "SCARED_GO_TO_SCHOOL"
[45] "SCARED_PAST" …Run Code Online (Sandbox Code Playgroud) 我正在尝试创建一个总计列,以将前面各列的值相加。但是,如果有NA,我将遇到困难。如果该行中没有NA,则我的脚本将不会计算总和。
我如何编辑以下脚本以将NA实质上计数为0,或者完全忽略它们,但仍计算总和。我实际上不想将NA更改为0。
CTDB %>% mutate(SCARED_TOTAL_CHILD = CTDB %>% rowwise() %>%
SELECT(SCARED_BREATHE_CHILD:SCARED_SHY_CHILD) %>% rowSums()) -> CTDB
Run Code Online (Sandbox Code Playgroud)
谢谢!!
如何根据最近的日期 jft.join 2 个数据框?我目前编写了脚本,以便它按确切的日期加入,但我更愿意按最近的日期进行连接,以防不完全匹配。
这就是我目前所拥有的:
MASTER_DATABASE <- left_join(ptnamesMID, CTDB, by = c("LAST_NAME", "FIRST_NAME", "Measure_date" = "VISIT_DATE"))
Run Code Online (Sandbox Code Playgroud)