我需要用 B 變數值乘以 10 繪制以下內容，以便調整到輔助軸。你是怎么做到的tidyverse？我在 mutate 中使用 %>%但不起作用
data<- data.frame(
Date=(1:13),
A=c(1.12,2.78,2.08,1.55,0.67,0.98,1.43,0.42,0.30,0.82,0.51,0.23,0.44),
B= c(0.10,0.07,0.04,0.05,0.10,0.08,0.12,0.05,0.02,0.11,0.06,0.05,0.11),
C= c(9.97,6.94,10.87,9.69,12.27,11.27,10.42,10.97,9.15,10.59,11.64,8.86,8.47))
library(tidyverse)
data %>%
select(-C) %>%
pivot_longer(cols = -Date) %>%
# mutate(data, B2= B*10) %>% THIS IS WHAT I AM TRYING AND DOES NOT WORK, B VALUE STO BE MULTIPLIED BY 10
ggplot(aes(Date, value, linetype = name))
geom_line()
geom_point()
scale_y_continuous(sec.axis = sec_axis(~./100, name= expression(paste("B", "(", mu, "M)"))))
scale_linetype_manual(values= LINES)
# scale_color_manual(name = "", values = c("A" = "black", "B" = "black"))
theme_classic()
ylab(bquote(A ~ (mu~M)))
xlab("")
uj5u.com熱心網友回復：
如果我理解正確，您想在名稱 ==“B”的情況下乘以 10。如果是這種情況，則可以使用 tidyverse：
data %>%
select(-C) %>%
pivot_longer(cols = -Date) %>%
mutate(value = case_when(name == "B" ~ value * 10, TRUE ~ value))
uj5u.com熱心網友回復：
另一種選擇是使用ifelseinsideaes
data %>%
select(-C) %>%
pivot_longer(cols = -Date) %>%
ggplot(aes(Date, ifelse(name == "B", 10 * value, value), linetype = name))
geom_line()
geom_point()
scale_y_continuous(sec.axis = sec_axis(~./100,
name= expression(paste("B", "(", mu, "M)"))))
scale_linetype_manual(values = 1:2)
theme_classic(base_size = 16)
ylab(bquote(A ~ (mu~M)))
xlab("")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/476659.html