Athomas hat geschrieben: ↑Do Jan 03, 2019 2:08 pm
DF.long <- melt(DF.wide, id.vars="ID", variable.name="Spaltenname")[/code]
Wow, vielen Dank! Damit habe ich es geschafft!
Für alle, die mal ein ähnliches Problem haben, hier mein Code und im Anhang das Schaubild:
tkd<-read.table("Mappe3.csv", header=TRUE, sep=";", dec=",", na.strings=c("NA", " "))
# load packages
library(dplyr)
library(ggplot2)
###############
##############
# Spalten in lange Liste umwandeln
tkd.long <- melt(tkd, id.vars="id", variable.name="Gruppe")
plotting_tkd.long <-
tkd.long %>%
group_by(id, Gruppe) %>%
# a trick!
mutate(value = if_else(Gruppe == "B", -value, value))
p <-
plotting_tkd.long %>%
ggplot(aes(x = id, y = value, group = Gruppe, fill = Gruppe)) +
geom_bar(stat = "identity", width = 0.75) +
coord_flip() +
labs(x = "id", y = "Anzahl") +
theme(legend.position = "right",
legend.title = element_blank(),
plot.title = element_text(hjust = 0.5),
panel.background = element_rect(fill = "grey90")) +
# Minus-Zeichen entfernen
scale_y_continuous(breaks=seq(-12000,12000,2000),labels=abs(seq(-12000,12000,2000)))
print(p)