[Basic Calculate] #R

basci_cal.r

library(plyr)
librart(rio)

rl <- import ("clipboard", header = T)
rrl <- ddply(rl, c('name'), summarise , mean = mean(fw) , n = length (fw), sd = sd(fw), se = sd/sqrt(n))

#line
ggplot (trl, aes(x = day, y = mean, group = group , color = group)) +
		geom_line(linewidth = 1) +
		geom_point(size = 2)+
		geom_errorbar(aes(ymax = mean+se, ymin = mean-se), width = .1 , linewidth = 1) +
		theme (panel.background = element_rect(fill= "white"),
				axis.line = element_line(color = "black"),
				axis.title = element_blank())

#bar
ggplot (rfw, aes(x = as.factor(name), y = mean)) +
		geom_bar(stat = 'identity' , position = 'dodge') +
		geom_errorbar(aes(ymax = mean+se, ymin = mean-se), width = .1 , linewidth = 1) +
		theme (panel.background = element_rect(fill= "white"),
				axis.line = element_line(color = "black"),
				axis.title = element_blank())