Блог

У меня есть фрейм данных с четырьмя переменными следующим образом:

 my_matrix <- matrix (c("D1",5,25, 100,200,
           "D2",6,30,150,250,
           "D3",7,32,180,300), nrow =3, byrow = T)
my_matrix <- as.data.frame(my_matrix)
names(my_matrix) <- c("Layer","Tmin", "Tmax", "Pmin", "Pmax")
my_matrix$Tmin <- as.numeric(as.character(my_matrix$Tmin)) 
my_matrix$Tmax <- as.numeric(as.character(my_matrix$Tmax)) 
my_matrix$Pmin <- as.numeric(as.character(my_matrix$Pmin)) 
my_matrix$Pmax <- as.numeric(as.character(my_matrix$Pmax)) 
 

Я построил диапазоны Pmin и Pmax для переменной слоя следующим образом:

 ggplot(my_matrix, aes(Layer)) 
 geom_linerange(aes(ymin= Pmin,ymax= Pmax),linetype=1,color="red") 
 geom_point(aes(y=Pmin),size=3,color="blue") 
 geom_point(aes(y=Pmax),size=3,color="blue")
 

Я также построил диапазоны для Tmin и Tmax для переменной слоя:

 ggplot(my_matrix, aes(y= Layer)) 
 geom_linerange(aes(xmin = Tmin, xmax = Tmax),linetype=1,color="red" ) 
 geom_point(aes(x=Tmin),size=3,color="blue") 
 geom_point(aes(x=Tmax),size=3,color="blue")
 

Я хочу объединить эти два графика в один график, где по оси x показаны диапазоны Tmin и Tmax, в то время как по оси y показаны диапазоны Pmin и Pmax для переменной слоя. В конце на графике должно быть 3 знака плюс для D1,D2 и D3. Как я могу это спланировать?