Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从CSV中分组数据并使用R创建图表_R_Csv_Graph_Charts_Bar Chart - Fatal编程技术网

从CSV中分组数据并使用R创建图表

从CSV中分组数据并使用R创建图表,r,csv,graph,charts,bar-chart,R,Csv,Graph,Charts,Bar Chart,嗯,用R。 我有一个CSV: "ID","Kind","Variety","Category","Kgrs","Kgrs_m2" "120-1","HOLLAND","MULHACEN","12G",1206,0.25 "120-1","HOLLAND","MULHACEN","12M",4708,0.99 "120-2","HOLLAND","MULHACEN","12G",2190,0.46 "120-2","HOLLAND","MULHACEN","12P",5746,1.20 "120-

嗯,用R。 我有一个CSV:

"ID","Kind","Variety","Category","Kgrs","Kgrs_m2"
"120-1","HOLLAND","MULHACEN","12G",1206,0.25
"120-1","HOLLAND","MULHACEN","12M",4708,0.99
"120-2","HOLLAND","MULHACEN","12G",2190,0.46
"120-2","HOLLAND","MULHACEN","12P",5746,1.20
"120-3","CHERRY","MINISTAR","A",9165,3.05
"120-3","CHERRY","MINISTAR","B",50,0.017
"120-3","CHERRY","MINISTAR","DES",1182,0.39
"120-3","HOLLAND","MULHACEN","12G",372,0.12
"120-7","CHERRY","MINISTAR","A",6584,3.05
"120-7","CHERRY","MINISTAR","B",321,1.05
我想做一些类似于这个图的事情,用R:

我阅读了CSV,但我不知道如何将CSV中的数据分组并将这些数据放入条形图

此外,我还需要添加各种各样的每组ID

这是我的代码:

path <- "./"

cosechas <- read.csv(paste(path, "test.csv",  sep="/"),header=T)

cosechas$Kgms <-  as.numeric(cosechas$Kgms)



fi <- c(cosechas$Kgms)
names(fi) <- levels(cosechas$Category)


png(paste(path, "cosechas.png", sep="/"))

barplot(fi, ylab="Kg", xlab="Categoria")
dev.off()
path如果您希望全部为单色,可以将“填充”更改为“组”

df <- read.csv('your/file.csv')
library(ggplot2)
ggplot(df, aes(x = ID, y = Kgrs, fill = Category)) + 
geom_bar(stat = 'identity', position='dodge')

df没有帮助吗?如果您有特定的问题。干杯,好的!很抱歉我的密码。编辑现在!对不起,是密码。我是一个新手,我想问一下,如果我把每个ID的种类放在哪里,请查看
交互
功能(
?交互
)。您可能需要
x=interaction(ID,Variety)