รวมแถวในคอลัมน์ที่มีชื่อคอลัมน์ที่ลงท้ายด้วยสตริงอักขระเฉพาะ (R) [ซ้ำ]
ฉันใช้รหัสต่อไปนี้ซึ่งคำนวณคะแนน z ต่อกลุ่มย่อย ฉันต้องการเพิ่มอีกหนึ่งคอลัมน์ในตอนท้ายซึ่งจะรวมคะแนน z ดังนั้นผลรวมของค่าทั้งหมดในคอลัมน์ทั้งหมดที่ลงท้ายด้วย "_zscore" ฉันจะเลือกคอลัมน์เหล่านั้นโดยเฉพาะได้อย่างไร
(โปรดทราบว่าข้อมูลจริงของฉันมีคอลัมน์อีกมากมายดังนั้นฉันจึงต้องการเลือก "_zscore" ในชื่อคอลัมน์โดยเฉพาะ)
library(dplyr)
set.seed(12345)
df1 = data.frame(a=c(rep("a",8), rep("b",5), rep("c",7), rep("d",10)),
b=rnorm(30, 6, 2),
c=rnorm(30, 12, 3.5),
d=rnorm(30, 8, 3)
)
df1_z <- df1 %>%
group_by(a) %>%
mutate(across(b:d, list(zscore = ~as.numeric(scale(.)))))
คำตอบ
คุณสามารถใช้selectเพื่อเลือกคอลัมน์ที่ลงท้ายด้วย"zscore"และใช้rowSums:
library(dplyr)
df1 %>%
group_by(a) %>%
mutate(across(b:d, list(zscore = ~as.numeric(scale(.))))) %>%
ungroup %>%
mutate(total = rowSums(select(., ends_with('zscore'))))
# A tibble: 30 x 8
# a b c d b_zscore c_zscore d_zscore total
# <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
# 1 a 7.17 14.8 8.45 0.697 0.101 0.0179 0.816
# 2 a 7.42 19.7 3.97 0.841 1.17 -1.14 0.865
# 3 a 5.78 19.2 9.66 -0.108 1.05 0.332 1.28
# 4 a 5.09 17.7 12.8 -0.508 0.732 1.14 1.36
# 5 a 7.21 12.9 6.24 0.721 -0.329 -0.555 -0.163
# 6 a 2.36 13.7 2.50 -2.09 -0.146 -1.52 -3.76
# 7 a 7.26 10.9 10.7 0.749 -0.774 0.593 0.567
# 8 a 5.45 6.18 12.8 -0.302 -1.80 1.14 -0.965
# 9 b 5.43 18.2 9.55 -0.445 1.12 1.34 2.02
#10 b 4.16 12.1 4.11 -1.06 0.0776 -1.02 -2.01
# … with 20 more rows
นี่คือโซลูชัน data.table
โดยทั่วไปจะทำเช่นเดียวกับรหัสสำหรับคำตอบของ Ronak แต่ในdata.tableรูปแบบไวยากรณ์
คำอธิบายที่
setDT(df1_z)จะใช้ในการตั้งค่าdf1_zรูปแบบ data.table
total := rowSums(.SD)สร้างคอลัมน์ใหม่totalที่มีค่าของrowSumsของ.SD(ชุดคอลัมน์เลือก) กำหนดคอลัมน์ที่เลือกสำหรับ
.SDcols = patterns("_zscore$") .SDนี่คือคอลัมน์ที่ชื่อตรงกับรูปแบบ regex _zscore$(ซึ่งหมายถึง: ลงท้ายด้วย_zscore)
library( data.table )
setDT(df1_z)[, total := rowSums(.SD), .SDcols = patterns("_zscore$")]