── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.0 ✔ stringr 1.5.1
✔ ggplot2 3.5.1 ✔ tibble 3.2.1
✔ lubridate 1.9.3 ✔ tidyr 1.3.1
✔ purrr 1.0.2
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
Load Dataset
survey <-read_csv("survey.csv")
Rows: 73 Columns: 31
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (4): user_id, language, platform, gender
dbl (27): age, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, ...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(survey)
# A tibble: 6 × 31
user_id language platform gender age q1 q2 q3 q4 q5 q6
<chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 080c468b-2… en Desktop male 34 9 7 6 6 7 7
2 0b0379c7-0… en Mobile female 19 10 10 10 9 10 10
3 0e623280-b… en Mobile female 19 10 10 10 10 10 10
4 045dc0f3-a… en Mobile male 21 5 8 5 5 5 5
5 092f2ee7-5… en null female 53 9 10 9 10 9 7
6 19c0851c-c… en Mobile female 53 10 9 9 9 5 6
# ℹ 20 more variables: q7 <dbl>, q8 <dbl>, q9 <dbl>, q10 <dbl>, q11 <dbl>,
# q12 <dbl>, q13 <dbl>, q14 <dbl>, q15 <dbl>, q16 <dbl>, q17 <dbl>,
# q18 <dbl>, q19 <dbl>, q20 <dbl>, q21 <dbl>, q22 <dbl>, q23 <dbl>,
# q24 <dbl>, q25 <dbl>, q26 <dbl>
Create Bar Graph of Gender
Bar graph is created for the gender variable to see what gender most users are. The graph shows that most users identified as male.
gender <-table(survey$gender)barplot(gender, xlab ="Gender", col ="darkmagenta")
Create Bar Plot of Platform
Create bar plot of platforms used to see which platforms (desktop, mobile) are most used by users. The bar plot shows that most users accessed the site on mobile.
platform <-table(survey$platform)barplot(platform, xlab ="Platform", col ="darkmagenta")
Create Box Plot for Age
Look at summary of age variable to see Mean age, Median age etc. of the dataset.
age <- survey$age summary(age)
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.00 19.00 20.00 24.86 29.00 55.00
Create a Box Plot of age variable.
boxplot(age, col ="lightgreen")
Create Histogram of Question 4
A histogram of question 4: “the color scheme of this website is appealing” is created to see the distribution of how users felt about the website color using the 10 point Likert scale. The histogram shows a left skewed distribution.
color <- survey$q4hist(color, main="Histogram of Whether Color Scheme of Website is Appealing to User",xlab="Q4: 'The color scheme of this website is appealing' (1-10 Likert Scale)", col="lightblue")
Create Histogram of Question 1
A histogram of question 1: “it is easy to read the text on this website with the used font type and size” is created to see the distribution of how users felt about the website text using the 10 point Likert scale. The histogram shows a left skewed distribution.
color <- survey$q1hist(color, main="Histogram of Whether Text on Website is Easy to Read",xlab="Q1: 'It is easy to read the text on this website with the used font type and size' (1-10 Likert Scale)", col="lightblue")
Create Histogram of Question 25
A histogram of question 25: “I would visit this website again” is created to see the distribution of how users felt using the 10 point Likert scale. The histogram shows a left skewed distribution.
color <- survey$q25hist(color, main="Histogram of Whether Users would Visit Website Again",xlab="Q25: ' I would visit this website again' (1-10 Likert Scale)", col="lightblue")
