Наложение нормальных участков распределения

Question

У меня есть две кривые ND, которые я должен был нарисовать друг над другом - как мне это сделать?

#meand and SDs of Gen 1 and 7

mean_gen1 <- 1.241
SD_gen1 <- 1.005
mean_gen7 <- 1.287 
SD_gen7 <- 1.386 

x_gen1 <- seq(-4, 4, length = 1000) * SD_gen1 + mean_gen1
 x_gen7 <- seq(-4, 4, length = 1000) * SD_gen7 + mean_gen7
 y_gen1 <- pnorm(x_gen1, mean_gen1, SD_gen1)
y_gen7 <- pnorm(x_gen7, mean_gen7, SD_gen7)

#plots

gen1_plot <- plot(x_gen1, y_gen1, type="n", xlab = "Height (Meters)", ylab = "", main = "Distribution of Pokemon Heights GEN1", axes = TRUE)+ lines(x_gen1, y_gen1)


gen7_plot <- plot(x_gen7, y_gen7, type="n", xlab = "Height (Meters)", ylab = "", main = "Distribution of Pokemon Heights GEN7", axes = TRUE)+ lines(x_gen7, y_gen7)

Answer 1

Не думаю, что ваши графики будут сохранены в переменных gen1_plot и gen7_plot.Но общий базовый синтаксис R-графика будет состоять в том, чтобы заменить ваш вызов gen7 plot() на lines(), как показано ниже:

plot(x_gen1, y_gen1, type="l", 
     xlab = "Height (Meters)", 
     ylab = "", 
     main = "Distribution of Pokemon Heights", 
     axes = TRUE)
lines(x_gen7, y_gen7, col = 2)

Что выглядит следующим образом:

Поскольку ваш вопрос помечен ggplot2, я также предоставлю опцию ggplot:

library(ggplot2)
# Put all the data you have in one data.frame
df <- data.frame(x = c(x_gen1, x_gen7),
                 y = c(y_gen1, y_gen7),
                 gen = rep(c("gen1", "gen7"), c(length(x_gen1), length(x_gen7))))

# Plot away
ggplot(df, aes(x, y, colour = gen)) +
  geom_line() +
  scale_x_continuous(name = "Height (Meters)") +
  ggtitle("Distribution of Pokemon Heights")

, которая выглядит следующим образом: