我對年輕人的標準誤差是 1.76，但我需要為我的老年人設定不同的誤差線 (1.937)。
這是我的資料框代碼，如何使 1.76 特定于年輕人的上限/下限，以及 1.94 用于老年人？
viz_data_one <- tibble(
age_group = c(rep("Young Adult", 4), rep("Older Adult", 4)),
MemoryAccuracy = c(32.8, 28.448, 27.672, 27.075, 29.667, 28.944, 27.556, 28.889),
upper = MemoryAccuracy 1.76,
lower = MemoryAccuracy - 1.76,
reward = rep(c("Self High Value", "Self Low Value", "Other High Value", "Other Low Value"), 2)
) %>%
mutate(
reward = as_factor(reward) %>% fct_relevel("Self High Value",
"Self Low Value",
"Other High Value",
"Other Low Value")
)
uj5u.com熱心網友回復：
你可以試試
viz_data_one %>%
mutate(upper = MemoryAccuracy ifelse(age_group == "Young Adult", 1.76, 1.94),
lower = MemoryAccuracy - ifelse(age_group == "Young Adult", 1.76, 1.94))
age_group MemoryAccuracy upper lower reward
<chr> <dbl> <dbl> <dbl> <fct>
1 Young Adult 32.8 34.6 31.0 Self High Value
2 Young Adult 28.4 30.2 26.7 Self Low Value
3 Young Adult 27.7 29.4 25.9 Other High Value
4 Young Adult 27.1 28.8 25.3 Other Low Value
5 Older Adult 29.7 31.6 27.7 Self High Value
6 Older Adult 28.9 30.9 27.0 Self Low Value
7 Older Adult 27.6 29.5 25.6 Other High Value
8 Older Adult 28.9 30.8 26.9 Other Low Value
或者
viz_data_one %>%
mutate(upper = MemoryAccuracy 1.76 0.18*(age_group == "Older Adult"),
lower = MemoryAccuracy - (1.76 0.18*(age_group == "Older Adult")))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/493125.html
上一篇：Rshiny中的回應式資料框