Code: Select all
# simple bar graph in jamovi
library(ggplot2)
ggplot(data, aes(x = apes, y = score)) +
geom_col() +
geom_col(fill = "lightblue", colour = "black") +
geom_errorbar(aes(ymin = score - se, ymax = score + se), width = .3)
.
Code: Select all
# simple bar graph in jamovi
library(ggplot2)
ggplot(data, aes(x = apes, y = score)) +
geom_col() +
geom_col(fill = "lightblue", colour = "black") +
geom_errorbar(aes(ymin = score - se, ymax = score + se), width = .3)
Code: Select all
# ------------------------------------------------------------------- #
# Function to calculate:
# Mean and standard error for each group
#
# my_df : data frame
# gr_names : vector of column names to be used as grouping variables
# vr_name : name of a column containing the variable to be summariezed
#
data_summary <- function(my_df, gr_names, vr_name) {
summary_func <- function(x, col) {
c(mean = mean(x[[col]], na.rm = TRUE),
sd = sd(x[[col]], na.rm = TRUE),
se = sd(x[[col]], na.rm = TRUE)/sqrt(length(x[[col]]))
)
}
d_sum <-plyr::ddply(my_df,
gr_names,
.fun = summary_func,
vr_name)
return(d_sum)
}
# ------------------------------------------------------------------- #
df_data <- data_summary(my_df = data,
gr_names = c("apes"),
vr_name = "score")
head(df_data)
# simple bar graph in jamovi
p <- ggplot(df_data,
aes(x = apes,
y = mean)) +
geom_bar(stat = "identity",
fill = "lightblue",
color = "black",
position = position_dodge())
# sd (error bars)
p + geom_errorbar(aes(ymin = mean - sd,
ymax = mean + sd),
width = .2,
position = position_dodge(.9))
# se (error bars)
p + geom_errorbar(aes(ymin = mean - se,
ymax = mean + se),
width = .2,
position = position_dodge(.9))