ô ggplot thanh với thứ tự phụ thuộc vào từng loại

Question

Tôi đã nhìn thấy nhiều câu hỏi (thường được liên kết với Order Bars in ggplot2 bar graph) về cách (lại) các loại đơn đặt hàng trong một âm mưu thanh.

Những gì tôi sau chỉ là một cảm ứng khác nhau, nhưng tôi không tìm được cách tốt để làm điều đó: Tôi có một âm mưu nhiều mặt, và tôi muốn đặt trục x cho từng khía cạnh một cách độc lập, theo đến một biến khác (trong trường hợp của tôi, biến đó chỉ là giá trị y, nghĩa là tôi chỉ muốn các thanh để tăng chiều dài trong mỗi khía cạnh).

Ví dụ đơn giản, sau ví dụ: Order Bars in ggplot2 bar graph:

df <- data.frame(name=c('foo','bar','foo','bar'),period=c('old','old','recent','recent'),val=c(1.23,2.17,4.15,3.65)) 
p = ggplot(data = df, aes(x = reorder(name, val), y = val)) 
p = p + geom_bar(stat='identity') 
p = p + facet_grid(~period) 
p 

Những gì chúng ta nhận được là như sau:

Trong khi những gì tôi muốn là:

Answer 1

Ok, vì vậy tất cả triết lý sang một bên, và trong trường hợp có ai quan tâm, đây là một hack xấu xí để làm điều đó. Ý tưởng là sử dụng các nhãn khác nhau (suy nghĩ paste(period, name) ngoại trừ tôi thay thế khoảng thời gian thành 0 không gian, 1 dấu cách, v.v. để chúng không hiển thị). Tôi cần âm mưu này và tôi không muốn sắp xếp grobs và như thế, bởi vì tôi có thể muốn chia sẻ một huyền thoại phổ biến vv

Ví dụ nguyên tử cho trước đó trở thành:

df <- data.frame(name=c('foo','bar','foo','bar'), 
    period=c('old','old','recent','recent'), 
    val=c(1.23,2.17,4.15,3.65), 
    stringsAsFactors=F) 
df$n = as.numeric(factor(df$period)) 
df = ddply(df,.(period,name),transform, x=paste(c(rep(' ',n-1), name), collapse='')) 
df$x = factor(df$x, levels=df[order(df$val), 'x']) 
p = ggplot(data = df, aes(x = x, y = val)) 
p = p + geom_bar(stat='identity') 
p = p + facet_grid(~period, scale='free_x') 
p 

Một Ví dụ, vẫn còn một chút ngớ ngẩn nhưng gần gũi hơn với trường hợp sử dụng thực tế của tôi, sẽ là:

df <- ddply(mpg, .(year, manufacturer), summarize, mixmpg = mean(cty+hwy)) 
df$manufacturer = as.character(df$manufacturer) 
df$n = as.numeric(factor(df$year)) 
df = ddply(df, .(year,manufacturer), transform, 
    x=paste(c(rep(' ',n-1), manufacturer), collapse='')) 
df$x = factor(df$x, levels=df[order(df$mixmpg), 'x']) 
p = ggplot(data = df, aes(x = x, y = mixmpg)) 
p = p + geom_bar(stat='identity') 
p = p + facet_grid(~year, scale='free_x') 
p = p + theme(axis.text.x=element_text(angle=90,hjust=1,vjust=.5,colour='gray50')) 
p 

Nhắm mắt lại, suy nghĩ của Đế quốc, và cố gắng để thưởng thức.

Answer 2

Hãy thử điều này, nó thực sự đơn giản (Chỉ cần bỏ qua những lời cảnh báo)

df <-data.frame(name = c('foo', 'bar', 'foo', 'bar'), 
       period = c('old', 'old', 'recent', 'recent'), 
       val = c(1.23, 2.17, 4.15, 3.65)) 

d1 <- df[order(df$period, df$val), ] 
sn <- factor(x = 1:4, labels = d1$name) 
d1$sn <- sn 
p <- ggplot(data = d1, aes(x = sn, y = val)) 
p <- p + geom_bar(stat = 'identity') 
p <- p + facet_wrap(~ period, scale = 'free_x') 
p 

Answer 3

Đây là một câu hỏi cũ nhưng nó được sử dụng như một mục tiêu dupe. Vì vậy, nó có thể là đáng giá để đề xuất một giải pháp sử dụng các cải tiến gần đây của gói ggplot2, cụ thể là thông số labels tới scale_x_discrete(). Điều này tránh được use duplicate levels không được dùng nữa hoặc đến manipulate factor labels by prepending a varying number of spaces.

Chuẩn bị dữ liệu

Ở đây, mpg bộ dữ liệu được sử dụng để có một so sánh để this answer. Đối với thao tác dữ liệu, gói data.table được sử dụng ở đây nhưng vui lòng sử dụng bất kỳ gói nào bạn thích cho mục đích này.

library(data.table) # version 1.10.4 
library(ggplot2)  # version 2.2.1 
# aggregate data 
df <- as.data.table(mpg)[, .(mixmpg = mean(cty + hwy)), by = .(year, manufacturer)] 
# create dummy var which reflects order when sorted alphabetically 
df[, ord := sprintf("%02i", frank(df, mixmpg, ties.method = "first"))] 

Tạo âm mưu

# `ord` is plotted on x-axis instead of `manufacturer` 
ggplot(df, aes(x = ord, y = mixmpg)) + 
    # geom_col() is replacement for geom_bar(stat = "identity") 
    geom_col() + 
    # independent x-axis scale in each facet, 
    # drop absent factor levels (actually not required here) 
    facet_wrap(~ year, scales = "free_x", drop = TRUE) + 
    # use named character vector to replace x-axis labels 
    scale_x_discrete(labels = df[, setNames(as.character(manufacturer), ord)]) + 
    # replace x-axis title 
    xlab(NULL) + 
    # rotate x-axis labels 
    theme(axis.text.x = element_text(angle = 90, hjust=1, vjust=.5))