Loại bỏ các yếu tố rỗng khỏi cụm sao chép trong ggplot2 với nhiều khía cạnh

Question

Tôi đang cố gắng tạo ra một phiên bản tốt hơn của cốt truyện R với ggplot2. Không chỉ có một huyền thoại chung mà còn vì tôi thích phong cách và tùy biến ggplot2. Dữ liệu của tôi bao gồm 3 tập dữ liệu riêng biệt có chứa hai nhóm quan sát giống nhau cho một số phương pháp điều trị khác nhau (nhưng khác nhau). Do đó, tôi muốn tạo ra 3 ô riêng biệt trong 1 đồ thị với một truyền thuyết chung tuy nhiên với các mức yếu tố khác nhau. Để minh họa cho quan điểm của tôi hình ảnh đầu tiên ở đây là những gì tôi đã tạo ra với cơ sở R cho đến nay:

tôi đã cố gắng để tạo ra một âm mưu ggplot2 với dữ liệu giả có chính xác cấu trúc tương tự như dữ liệu của tôi:

foo<-data.frame(c(letters,letters),c(rep('T1',26),rep('T2',26)), 
runif(52),rep(c(rep('Ori1',12),rep('Ori2',8),rep('ori3',6)),2)) 
names(foo)<-c('Treatment','Type','Count','Origin') 

a<-ggplot(foo,aes(x = factor(Treatment),y = Count)) 
a+ facet_grid(Origin~., scales="free_y", space="free") + 
geom_bar(stat="identity",aes(fill=factor(foo$Type)),position="dodge") 
+theme_bw()+theme(axis.text.x=element_text(angle=60,hjust=1))+coord_flip() 

Điều này mang lại cho tôi kết quả không mong muốn sau.

Tôi biết trong những chủ đề stack overflow Removing Unused Factors from a Facet in ggplot2 và How can I remove empty factors from ggplot2 facets? Tuy nhiên, họ không đối phó với các đồ thị thanh cụm Tôi cố gắng để nhận ra ở đây và tôi cảm thấy họ là những vấn đề, tuy nhiên không tại làm thế nào để giải quyết nó. Tất cả các con trỏ đều được chào đón.

Answer 1

Để minh họa cho nhận xét của tôi:

a<-ggplot(foo,aes(x = factor(Treatment),y = Count)) 
a+ facet_wrap(~Origin, scales="free_x") + 
    geom_bar(stat="identity",aes(fill=factor(Type)),position="dodge") + 
    theme_bw() + 
    theme(axis.text.x=element_text(angle=60,hjust=1)) 

Lưu ý rằng nếu bạn thêm coord_flip và chuyển sang free_y bạn nhận được một lỗi cụ thể về coord_flip không làm việc với một số loại cân miễn phí, đó là nguồn của bạn vấn đề.