Создание нескольких штриховых рисунков из одного конденсированного

Question

Я хочу знать, есть ли эффективный способ изготовления небольших стрижек из одного стола. Моя цель состоит в том, чтобы производить чистые интеллектуальные графики, а не один плотный граф, который вряд ли можно прочитать. Есть ли способ сделать это без экстенсивного кодирования. Исходная таблица относится к типу объекта dataframe.

Answer 1

Вот четыре разных сюжета, возможно, один из них по своему вкусу.

library(ggplot2) # plotting and the diamonds data set 
library(dplyr) # needed for the filter function 


# Unwanted 'dense' graph 
g1 <- 
    ggplot(diamonds) + 
    aes(x = cut, fill = color) + 
    geom_bar() + 
    ggtitle("g1: stacked bar plot") 

# or 
g2 <- 
    ggplot(diamonds) + 
    aes(x = cut, fill = color) + 
    geom_bar(position = position_dodge()) + 
    ggtitle("g2: dodged bar plot") 

# different option, layered bars 
g3 <- 
    ggplot() + 
    aes(x = cut, fill = color) + 
    geom_bar(data = filter(diamonds, color == "D"), width = 0.90) + 
    geom_bar(data = filter(diamonds, color == "E"), width = 0.77) + 
    geom_bar(data = filter(diamonds, color == "F"), width = 0.63) + 
    geom_bar(data = filter(diamonds, color == "G"), width = 0.50) + 
    geom_bar(data = filter(diamonds, color == "H"), width = 0.37) + 
    geom_bar(data = filter(diamonds, color == "I"), width = 0.23) + 
    geom_bar(data = filter(diamonds, color == "J"), width = 0.10) + 
    ggtitle("g3: overlaid bar plot") 

# facet plot 
g4 <- 
    ggplot(diamonds) + 
    aes(x = cut) + 
    geom_bar() + 
    facet_wrap(~ color)