小编Mab*_*aba的帖子

为我正在编写的论文做一些可视化,并且卡在将数据从加载CSV的表转移到矩阵(以便能够在之后绘制热图).

我这样做:

dta.tesiscsv<- read.csv("dtatesis.csv", header=TRUE)

加载看起来像这样的数据样本:

Col,Row,Kf
1,1,100
1,2,97.14285714
2,1,100 
...,...,...

但是在下一步中有点丢失(创建一个空矩阵并根据公式将数据从表传输到它):

X<- matrix(nrow= 48, ncol=12)
X[dta.test[,c(1:2)]] <- dta.test$Kf

我想在条形图中为单个条形图选择颜色和填充图案(突出显示单个"条形图")

我想用另一种颜色填充的条形图是"Str"和"RB"

ggplot(GZ.mean, aes(x=Group.1, y=B)) +theme_bw(base_size=20, base_family="Times")+
geom_bar(stat="identity",colour="black", width=.6, position = "dodge", ,fill="gainsboro") +geom_errorbar(my.limits, width=0.2) +
theme(axis.text.x=element_text(family="Times", colour="black", size=rel(1.2), angle=30, hjust=1, vjust=1))+
theme(axis.text.y=element_text(family="Times", colour="black", size=rel(1.2))) +   scale_y_continuous(limits=c(0,170))+geom_text(size=6,aes(label=c("a","d","c","e","b","d","d","b","bc","d", "bc"),hjust=offset.h, vjust=offset.v)) +
scale_x_discrete(limits=c("JdC", "Stu", "Str", "Bol", "WBr", "Rij4", "Bif", "ErL", "ZtG", "PdV", "RB")) +labs(x= "Variety", y= "Total Sugar concentration [mg * g-1 FW]")

我已尝试使用"scale_fill_manual"和"scale_color_manual",但它仍然不起作用.