#WORSPACE SETTING

#working directory
setwd("C:/Users/vitto/Desktop/Ethicub/Data analysis")

#libraries
library(dplyr)
library(ggplot2)

#clean all saved objects
rm(list=ls())

#read data
df <- read.csv("dataframe.csv")

Dataset disponibile QUI

Sociodemographics

Gender

table(df$gen) %T>%
  print %>%
  pie
## 
## f m 
## 2 1

Age

hist(df$age)

Met Icub?

table(df$met) %T>%
  print %>%
  pie
## 
## si 
##  3