ggplot, barplot с баром ошибки: два двойных столбцов и одной категорических

Question

членов Уважаемые StackOverflow,

У меня есть набор данных, состоящий из следующих действий: один столбец lang, содержащий пять различных языков. два других столбца CAN и INT, содержащие либо (0, 1). Вы можете просмотреть данные here

Я хотел бы построить два бара на один язык, один для CAN== 0, а другой для CAN==1. Ось y должна быть числом строк INT (или INT==1). Я бы хотел, чтобы у этих баров была панель ошибок. Некоторые сообщения предложили использовать melt(), чтобы преобразовать формат в длинный. Однако это не работает, поскольку мои данные непрерывны.

Answer 1

Update

прошлой ночью я имел взгляд на stat_summary, и, возможно, он работает, но я не мог этого сделать. Поэтому я все еще думаю, что geom_errorbar - это путь, как было предложено.

Во-первых, чтобы вычислить CI, я написал функцию. Там может быть один встроенный, но я этого не знаю.

BinCI <- function(x) { 
    p <- mean(x) 
    s <- sqrt(p * (1 - p)/length(x)) 
    i <- s * 2 
    i 
} 

Во-вторых манипуляция данных:

df2 <- unite(df, uLang, c(Lang, CAN), remove = FALSE) %>% # Create the groups 
    group_by(Lang, uLang) %>% 
    summarize(prop = mean(INT), ci = BinCI(INT)) # Calculate the mean and CI using the `BinCI` function 


Lang uLang  prop   ci 
Ar Ar_0 0.07200000 0.04623972 
Ar Ar_1 0.44406780 0.05785682 
Kic Kic_0 0.16000000 0.06558048 
Kic Kic_1 0.44745763 0.05789989 
Sp Sp_0 0.04968944 0.03425168 
Sp Sp_1 0.24390244 0.04742311 
Yuc Yuc_0 0.16800000 0.06687923 
Yuc Yuc_1 0.40780142 0.05852797 
Zap Zap_0 0.15151515 0.06241559 
Zap Zap_1 0.26785714 0.04831810 

В-третьих, сюжет:

ggplot(df2, aes(uLang, prop, fill = Lang)) + 
    geom_col() + 
    geom_errorbar(aes(ymin = prop - ci, ymax = prop + ci), width = 0.3) + 
    guides(fill = FALSE)