R：一组图表

Question

我想创建一个类似地块的集合：

到目前为止，我已经设法创建了一个这样的图：

ggplot (df, aes (x, y)) + geom_point (col = 'yellow') + xlab ("A") + ylab ("B") + ggtitle ("Dose0.1") + geom_abline (slope = 1, linetype = 2, color = "red")

在轴上校准的措施

最好是在轴上进行功能

示例数据的形式：

structure(list(Np. = 1:32, A = c(62L, 62L, 54L, 54L, 10L, 10L, 
14L, 14L, 50L, 50L, 43L, 43L, 22L, 22L, 48L, 48L, 34L, 34L, 57L, 
57L, 60L, 60L, 1L, 1L, 63L, 63L, 2L, 2L, 44L, 44L, 34L, 57L), 
    B = c(1L, 7L, 2L, 29L, 1L, 15L, 27L, 28L, 14L, 15L, 48L, 
    49L, 1L, 2L, 1L, 21L, 18L, 19L, 23L, 24L, 14L, 15L, 29L, 
    31L, 1L, 2L, 1L, 36L, 2L, 19L, 19L, 23L), Dose = c(0.1, 1, 
    10, 1, 1, 0.1, 1, 1, 1, 1, 1, 1, 1, 0.1, 0.1, 0.1, 0.1, 0.1, 
    0.1, 0.1, 0.1, 0.1, 0.1, 10, 10, 10, 10, 10, 10, 10, 1, 1
    )), class = "data.frame", row.names = c(NA, -32L))

Answer 1

如果要在自己的函数中写入它，可以从rlang中组合{{}}，告诉R，它应该寻找您的x 和y在这样的数据中参数：

df <- structure(list(Np. = 1:32, A = c(62L, 62L, 54L, 54L, 10L, 10L, 
                                       14L, 14L, 50L, 50L, 43L, 43L, 22L, 22L, 48L, 48L, 34L, 34L, 57L, 
                                       57L, 60L, 60L, 1L, 1L, 63L, 63L, 2L, 2L, 44L, 44L, 34L, 57L), 
                     B = c(1L, 7L, 2L, 29L, 1L, 15L, 27L, 28L, 14L, 15L, 48L, 
                           49L, 1L, 2L, 1L, 21L, 18L, 19L, 23L, 24L, 14L, 15L, 29L, 
                           31L, 1L, 2L, 1L, 36L, 2L, 19L, 19L, 23L), Dose = c(0.1, 1, 
                                                                              10, 1, 1, 0.1, 1, 1, 1, 1, 1, 1, 1, 0.1, 0.1, 0.1, 0.1, 0.1, 
                                                                              0.1, 0.1, 0.1, 0.1, 0.1, 10, 10, 10, 10, 10, 10, 10, 1, 1
                           )), class = "data.frame", row.names = c(NA, -32L))

library(ggplot2)
plot <- function(dataframe, xvalue, yvalue, grid){
ggplot(dataframe, aes({{xvalue}}, {{yvalue}})) + 
  geom_point(col = 'yellow') + 
  xlab ("A") + ylab ("B") + 
  geom_abline(slope = 1, linetype = 2, color = "red") +
  theme_bw() +
  facet_grid(~Dose)
}

plot(df, A, B, "Dose")

^由

Answer 2

您可能需要更改格式化，但本质上是：

df$dose  <- factor(df$Dose)
ggplot (df, aes (A, B)) + 
    geom_point(aes(color = dose, shape = dose)) + 
    xlab ("A") + 
    ylab ("B") + 
    geom_abline(slope = 1, linetype = 2, color = "black") +
    facet_wrap(vars(dose)) + 
    theme_bw()