BarChart modification

[Gelci]

How can i create a chart like this in R? Ive tried so hard today and i cant find the solution, i need it asap though haha, so thanks

[M_AcostaCH]

Hi @Gelci , Welcome!

For get a good help for all the community is better put a reproducible example of the data.

FAQ: How to do a minimal reproducible example ( reprex ) for beginners

A minimal reproducible example consists of the following items: A minimal dataset, necessary to reproduce the issue The minimal runnable code necessary to reproduce the issue, which can be run on the given dataset, and including the necessary information on the used packages. Let's quickly go over each one of these with examples: Minimal Dataset (Sample Data) You need to provide a data frame that is small enough to be (reasonably) pasted on a post, but big enough to reproduce your issue. Let's say, as an example, that you are working with the iris data frame head(iris) #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.…

A basic example for start with this plot is something like that:

library(ggplot2)
df <- data.frame(
  Categoria = c("A", "B", "C", "D"),
  Valor = c(10, -5, 15, -8))

# Make the plot with ggplot2
ggplot(df, aes(x = Categoria, y = Valor)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  labs(title = "Gráfico de Barras",
       x = "Categoría",
       y = "Valor")

[Gelci]

sor	zeo	znlis	znkor
CS	zeo0-0kg	133,7
CS	zeo0-0kg	119,0	53,7
CS	zeo0-0kg	93,8	56,7
CS	zeo0-0kg	79,8	73,0
CS	zeo1-0,1kg	162,8	107,6
CS	zeo1-0,1kg	92,9	71,7
CS	zeo1-0,1kg	36,1	143,4
CS	zeo1-0,1kg	70,9	95,1
CS	zeo1-0,1kg	148,1	51,8
CS	zeo2-0,5kg	62,3	70,3
CS	zeo2-0,5kg	145,3	60,5
CS	zeo2-0,5kg	133,4	78,5
CS	zeo2-0,5kg	114,0	62,3
CS	zeo2-0,5kg	68,7	76,1
CS	zeo3-1kg	61,0	45,5
CS	zeo3-1kg	58,3	53,4
CS	zeo3-1kg	77,0	73,9
CS	zeo3-1kg	56,3	35,5
CS	zeo3-1kg	25,3	70,8
EC	zeo0-0kg	88,1	53,3
EC	zeo0-0kg	107,3	85,4
EC	zeo0-0kg	74,2	68,5
EC	zeo0-0kg	60,0	51,4
EC	zeo1-0,1kg	81,0	64,2
EC	zeo1-0,1kg	77,1	112,4
EC	zeo1-0,1kg	64,1	44,0
EC	zeo1-0,1kg	69,1	67,1
EC	zeo1-0,1kg	83,5	99,0
EC	zeo2-0,5kg	44,5	75,7
EC	zeo2-0,5kg	64,7	53,7
EC	zeo2-0,5kg	76,3	41,2
EC	zeo2-0,5kg	115,7	46,0
EC	zeo2-0,5kg	56,2	72,0
EC	zeo2-0,5kg	50,0	69,9
EC	zeo3-1kg	95,6	71,1
EC	zeo3-1kg	82,3	39,7
EC	zeo3-1kg	41,7	83,1
EC	zeo3-1kg	49,6	80,5
EC	zeo3-1kg	97,6	55,3
EC	zeo3-1kg	120,9	48,6
EC	zeo3-1kg		111,3
FIN	zeo0-0kg	326,1	65,1
FIN	zeo0-0kg	239,8
FIN	zeo0-0kg	139,7
FIN	zeo0-0kg	257,3	77,6
FIN	zeo0-0kg	310,3
FIN	zeo1-0,1kg	147,2	47,8
FIN	zeo1-0,1kg	162,4
FIN	zeo1-0,1kg	189,7
FIN	zeo1-0,1kg	146,1
FIN	zeo1-0,1kg	267,0
FIN	zeo2-0,5kg	161,4	39,3
FIN	zeo2-0,5kg	155,5
FIN	zeo2-0,5kg	168,1
FIN	zeo2-0,5kg	198,6	34,6
FIN	zeo2-0,5kg	130,1	97,4
FIN	zeo3-1kg	158,1	48,6
FIN	zeo3-1kg	219,6
FIN	zeo3-1kg	288,8	61,9
FIN	zeo3-1kg	141,2
FIN	zeo3-1kg	133,2
TB	zeo0-0kg	43,7	92,2
TB	zeo0-0kg	69,7	117,6
TB	zeo0-0kg	91,1	73,5
TB	zeo0-0kg	55,3	119,1
TB	zeo0-0kg	44,5	64,5
TB	zeo1-0,1kg	71,1	81,9
TB	zeo1-0,1kg	60,8	57,8
TB	zeo1-0,1kg	125,8	71,2
TB	zeo1-0,1kg	77,8	37,9
TB	zeo2-0,5kg	94,1	61,0
TB	zeo2-0,5kg	117,5	48,5
TB	zeo2-0,5kg	85,1	57,8
TB	zeo2-0,5kg	76,8	45,6
TB	zeo2-0,5kg	60,1	47,8
TB	zeo3-1kg	75,6	69,0
TB	zeo3-1kg	99,9	70,7
TB	zeo3-1kg	65,6	65,9
TB	zeo3-1kg	68,3	84,0
TB	zeo3-1kg	54,5	71,4

I want 2 bar charts: ggplot_bar(data = kon, aes(x = sor, y = znlis, fill = zeo) and ggplot_bar(data = kon, aes(x = sor, y = zkor, fill = zeo) on the same x-axis. As you can see only the y-axis is different. How can i achieve that? The chart should look like something above.

[jrkrideau]

Can you explain a bit about what your data is and how it relates to the example graph? At the moment, I do not see how you get two in one graphs.