Import data
# excel file
data <- read_excel("data/mydata.xlsx")
data
## # A tibble: 690 × 16
## b_a continuous continuous2 `u, y, l, t` g_p_gg c v continuous3
## <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <dbl>
## 1 b 30.83 0 u g w v 1.25
## 2 a 58.67 4.46 u g q h 3.04
## 3 a 24.50 0.5 u g q h 1.5
## 4 b 27.83 1.54 u g w v 3.75
## 5 b 20.17 5.62 u g w v 1.71
## 6 b 32.08 4 u g m v 2.5
## 7 b 33.17 1.04 u g r h 6.5
## 8 a 22.92 11.6 u g cc v 0.04
## 9 b 54.42 0.5 y p k h 3.96
## 10 b 42.50 4.92 y p w v 3.16
## # ℹ 680 more rows
## # ℹ 8 more variables: t_f <chr>, t_f2 <chr>, continuous4 <dbl>, t_f3 <chr>,
## # g_p_s <chr>, continuous5 <chr>, continuous6 <dbl>, `0` <chr>
Plot data
data %>%
ggplot(aes(x = 0)) +
geom_bar()
## Warning in geom_bar(): All aesthetics have length 1, but the data has 690 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing
## a single row.
