Two few names (6) for the number of columns (7). Come back if you have other problems. Please see the reprex FAQ guideliune. Here's a dput to get started with
suppressPackageStartupMessages({
library(ggplot2)
})
dataset <-
structure(list(Datum = c(
"2014.10.15", "2014.10.15", "2014.10.15",
"2014.10.15", "2014.10.15", "2014.10.15"
), Region = c(
"america",
"Africa", "asia", "Spain", "Swiss", "Australia"
), Betrag = c(
2146733,
-322394, 1231273, -2255851, 1961510, -1166936
), Betragin = c(
2146733,
0, 6621332, 2719620, 2861038, 3261793
), Betragout = c(
0, -322400,ds_out<-as.numeric(rbind(df$Betragout)) #vectorization
ds_in <- as.numeric(rbind(df$Betragin)) #vectorization
-5390074.6, -4975470, -899528.3, -4428733
), Diff = c(
2146733,
-322400, 1231257, -2255850, 1961510, -1166940
), group = c(
1,
1, 1, 1, 1, 1
)), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, -6L), spec = structure(list(cols = list(
Datum = structure(list(), class = c(
"collector_character",
"collector"
)), Region = structure(list(), class = c(
"collector_character",
"collector"
)), Betrag = structure(list(), class = c(
"collector_double",
"collector"
)), Betragin = structure(list(), class = c(
"collector_double",
"collector"
)), Betragout = structure(list(), class = c(
"collector_double",
"collector"
)), Diff = structure(list(), class = c(
"collector_double",
"collector"
)), group = structure(list(), class = c(
"collector_double",
"collector"
))
), default = structure(list(), class = c(
"collector_guess",
"collector"
)), skip = 1L), class = "col_spec"))