ファセットに依存するカテゴリの順序を持​​つggplotの棒グラフ

Question

棒グラフでカテゴリを（再）順序付ける方法について多くの質問がありました（多くの場合、Order Bars in ggplot2 bar graphにリンクされています）。

私は何度も触れていますが、私はそれを行う良い方法を見つけませんでした：私は多面的な棒グラフを持っており、私は各ファセットのx軸を独立して（私の場合、その変数はちょうどyの値そのものです。すなわち、棒の長さを各面で増やしたいだけです）。

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 

は以下の通りです：

私がしたいことはあるのに対し：

Answer 1

オクラホマので、すべてここで、脇philosophizing、及び場合に誰が興味がありますそれを行う醜いハック。アイデアは、別のラベルを使用することです（私は0スペース、1スペースなどにピリオドを入れ替えて表示しないようにしてください）paste(period, name)と考えてください。私はこのプロットを必要と私は一般的な伝説を共有したい場合がありますので、私は、grobsなどをアレンジしたくない、など

先に与えられた原子の例は次のようになります。

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 

別例では、まだ少し愚かな私の実際のユースケースに近い、次のようになります。

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 

、目を閉じて帝国を考え、そして楽しむためにしてみてください。

Answer 2

これは古い質問ですが、それはだまされやすい人のターゲットとして使用されています（ただ、警告を無視）

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

それは本当に簡単です、これを試してみてください。したがって、ggplot2パッケージの最新の拡張機能、つまりlabelsのパラメータをscale_x_discrete()に利用するソリューションを提案することは価値があります。これにより、use duplicate levelsが廃止されるか、またはmanipulate factor labels by prepending a varying number of spacesになりません。

はmpgデータセットはthis answerとの比較を持っているために使用され、データここで

を準備します。データ操作のためにここでは data.tableパッケージが使用されていますが、この目的のために好きなパッケージを自由に使用してください。

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"))] 

プロット

# `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))