barchartをggplotに変更するgeom_bar code

Question

ggplot geom_bar関数を使用して、誰でも自分のコードを同じようにすることができますか？

正しい方向への助力や助言があれば幸いです。

データセット：

FID DESTINATION LANGUAGE IMD 
1 Germany  English Internal 
2 Germany  French  Internal 
3 France  English International 
4 USA   English Internal 
5 USA   English International 
6 USA   German  International 
7 Germany  German  Internal 
8 France  French  Internal 
.. 

factor_var <- names(which(sapply(Data, class) == "factor")) 
barchart_res <- lapply(factor_vars, function(x) { 
title <- colnames(Data[,x, drop=FALSE]) 
wgd <- CrossTable(Data[,x], Data$IMD, prop.chisq=F) 
barchart(wgd$prop.row, stack=T, auto.key=list(rectangles = TRUE, space ="top", title = title)) 
}) 
names(barchart_res) <- factor_vars 
barchart_res$LANGUAGE 

Answer 1

はこれを試してみてください：

Data <- read.table(text=" 
FID DESTINATION LANGUAGE IMD 
1 Germany  English Internal 
2 Germany  French  Internal 
3 France  English International 
4 USA   English Internal 
5 USA   English International 
6 USA   German  International 
7 Germany  German  Internal 
8 France  French  Internal 
", header=T) 

library(reshape) 
library(ggplot2) 
library(scales) 
Data.long <- melt(Data, id.vars=c("FID","IMD")) 
ggplot(data=Data.long, aes(x=value, y=FID, group=IMD, fill=IMD)) + 
geom_bar(position = "fill",stat = "identity") + 
scale_y_continuous(labels = percent_format()) + 
facet_wrap("variable", scales="free_x", ncol=1)