技术问答R璇█鏁版嵁鑱氬悎鍜屾憳瑕佺粺璁℃€庝箞瀹炵幇 - 扬州沐宇科技

鍦≧璇█涓紝鍙互浣跨敤aggregate()鍑芥暟鏉ュ疄鐜版暟鎹仛鍚堬紝浣跨敤summary()鍑芥暟鏉ュ疄鐜版憳瑕佺粺璁°€?/p>

鏁版嵁鑱氬悎绀轰緥锛?/p>

# 鍒涘缓涓€涓寘鍚袱涓彉閲忕殑鏁版嵁妗?/span>
data <- data.frame(
  group = c("A", "A", "B", "B", "C", "C"),
  value = c(10, 20, 30, 40, 50, 60)
)

# 浣跨敤aggregate()鍑芥暟瀵规暟鎹繘琛屾寜缁勮仛鍚?/span>
agg_data <- aggregate(value ~ group, data, sum)
agg_data

鎽樿缁熻绀轰緥锛?/p>

# 浣跨敤summary()鍑芥暟瀵规暟鎹繘琛屾憳瑕佺粺璁?/span>
summary(data$value)

闄や簡summary()鍑芥暟涔嬪锛岃繕鍙互浣跨敤鍏朵粬缁熻鍑芥暟鏉ヨ繘琛屾憳瑕佺粺璁★紝姣斿mean()銆乵edian()銆乻d()绛夈€備緥濡傦細

# 璁＄畻鏁版嵁鐨勫潎鍊?/span>
mean(data$value)

# 璁＄畻鏁版嵁鐨勪腑浣嶆暟
median(data$value)

# 璁＄畻鏁版嵁鐨勬爣鍑嗗樊
sd(data$value)