从导入的Excel数据中分组条形图+ SD

Question

我最近一直试图从Excel转换为R，并且一直在苦苦挣扎。

我现在的目标是创建一个两组均值的分组条形图：对比前和后对比。

每个人都应该有“控制”和“治疗”组。

我不确定如何使我的数据可重现（我会上传excel表吗？）

Data Sheet

This is the graph I'm trying to produce

    library(plyr)
    library(tidyverse)
    library(readxl)

    t2<- read_excel("t2quant.xlsx")
    summary(t2)
    colwise(sd)(t2)

从dput（t2）复制并粘贴：

structure(list(Pre_Contrast_Control = c(14, 10.4, 11), Pre_Contrast_Treated = c(16.7, 
    15, 12), Post_Contrast_Control = c(6, 5.8, 6.5), Post_Contrast_Treated = c(3.5, 
    3.7, 2.6)), .Names = c("Pre_Contrast_Control", "Pre_Contrast_Treated", 
    "Post_Contrast_Control", "Post_Contrast_Treated"), class = c("tbl_df", 
    "tbl", "data.frame"), row.names = c(NA, -3L))

我使用colwise来获取每列中值的SD。 我如何制作每列平均值+/- SD的分组条形图？

我非常感谢大家的帮助。