二次軸を係数 /100 を加えた単位に調整しました。ただし、データポイント (B) は第 2 軸に従ってプロットされておらず、小さいままです。
data<- data.frame(
Days=(1:10),
A=c(34,1,22,1,3,0,2,5,0,8),
B= c(0.2,0.2,0.2,0.2,0.3,0.3,0.2,0.1,0.1,0.3))
coeff2<- 100
ggplot(data) +
geom_line(aes(Days, A, color = "A"), fill = "grey") +
geom_point(aes(Days, A))+
geom_line(aes(Days, B, color = "B"), size = 0.6) +
geom_point(aes(Days, B))+
theme_classic() +
scale_y_continuous(name = "A",
sec.axis = sec_axis(~./coeff2, name="B"))+
scale_color_manual(name = "", values = c("A" = "darkgrey", "B" = "black"))