Facetting с использованием ggplot в R

Question

Используя в качестве примера данные:

# день 1

carrots <- data.frame(length = rnorm(100000, 6, 2)) 
cukes <- data.frame(length = rnorm(50000, 7, 2.5)) 

# Теперь, объединить два dataframes в один. Сначала создайте новый столбец в каждом.

carrots$veg <- 'carrot' 

cukes$veg <- 'cuke' 

# и объединить в новый кадр данных vegLengths

vegLengths <- rbind(carrots, cukes) 

# Теперь сделать ваш прекрасный участок

ggplot(vegLengths, aes(length, fill = veg)) + geom_histogram(alpha = 0.5), position = 'identity') 

# день 2

carrots <- data.frame(length = rnorm(600000, 6, 2)) 

cukes <- data.frame(length = rnorm(70000, 7, 2.5)) 

#Now, combine your two dataframes into one. First make a new column in each. 

carrots$veg <- 'carrot' 

cukes$veg <- 'cuke' 

# и объединить в новый кадр данных vegLengths

vegLengths <- rbind(carrots, cukes) 

# Теперь сделать ваш прекрасный участок

ggplot(vegLengths, aes(length, fill = veg)) + geom_histogram(alpha = 0.5), position = 'identity') 

У меня есть подобный набор данных, и решил использовать это для более легкого понимания. У меня есть два таких сюжета. Как использовать опцию огранки и представлять день1 и день2 вместе на одном участке для их сравнения?

Answer 1

Сначала вы должны объединить все данные в один dataframe:

carrots1 <- data.frame(length = rnorm(100000, 6, 2)) 
cukes1 <- data.frame(length = rnorm(50000, 7, 2.5)) 
carrots1$veg <- 'carrot' 
cukes1$veg <- 'cuke' 
vegLengths1 <- rbind(carrots1, cukes1) 
vegLengths1$day <- '1' 

carrots2 <- data.frame(length = rnorm(600000, 6, 2)) 
cukes2 <- data.frame(length = rnorm(70000, 7, 2.5)) 
carrots2$veg <- 'carrot' 
cukes2$veg <- 'cuke' 
vegLengths2 <- rbind(carrots2, cukes2) 
vegLengths2$day <- '2' 

vegLengths <- rbind(vegLengths1, vegLengths2) 

После того, как вы можете сделать сюжет с:

require(ggplot2) 

ggplot(vegLengths, aes(x=length, fill = veg)) + 
    geom_histogram(binwidth=0.5, alpha = 0.5, position = 'identity') + 
    facet_wrap(~ day) 

Результат: