построение прямоугольника и линейного графика в том же графе с использованием ggplot

Question

Я хочу создать участок в ggplot для участка коробки и линейного участка на том же рисунке. У меня есть кадр данных, который выглядит следующим образом:

Lambda | means | theorMean 
1 0.1  10.07989  10  
2 0.1  10.55681  10  
3 0.1  10.26660  10 
4 0.1  10.29234  10  
5 0.1  10.07754  10  
... 

means является выборочными средними и теоретическими средства theorMeans. Я хочу построить распределение средств выборки по квадратным графикам, тогда как теоретические средства используют прямую линию.

Это то, что я до сих пор ...

library(ggplot2) 
library(scales) 

p <- ggplot(summ, aes(x=factor(Lambda), y=means)) + 
    geom_boxplot() + 
    geom_line(data=summ, aes(x=log10(Lambda), y=means)) 

Проблема заключается в том, что для коробки сюжета или скрипки сюжета, мне нужно использовать ось х как фактор , С другой стороны, мне нужно, чтобы ось x была числом. Я в основном хочу подгонять теоретическую линию к ящикам, которые я создаю. Как я могу это сделать?

Answer 1

Это должно сделать трюк:

library(ggplot2) 

summ$Lambda <- log10(summ$Lambda) 

ggplot(summ, aes(x=factor(Lambda), y=means)) + 
    geom_boxplot() + 
    geom_line(inheret.aes = FALSE, aes(x=factor(Lambda), y=means, group = 1), color = "blue") + 
    ylab("Mean") + 
    xlab("Lambda (Log10)") + 
    scale_x_discrete(labels = round(summ$Lambda,2)) + 
    theme( axis.ticks.y = element_blank() 
     , axis.text.x = element_text(angle = 45, hjust = 1) 
) 

Yeilds:

---

теста данные:

e <- 2.7182818284590452353602874713527 
summ <- data.frame("Lambda" = seq(0.01, 0.9, by = 0.0287097)) 

list <- c() 
for(x in 1:31){ 
    t <- e^-(x/10)*15 
    list[x] <- t 
} 
summ$means <- list 
summ$Lambda <- log10(summ$Lambda) 

This was helpful here.