How to acess a column in R: We have the dataset survey_data We will be looking at satisfaction scores:

So, we will extract the Satisfaction column”

The code we will use ius as follows:

sati<-survey_data$Satisfaction
mean(sati)
[1] 6.75
median(sati)
[1] 7
hr_ages <- survey_data$Age[survey_data$Department == "HR"]
mean(hr_ages)
[1] 30
age_satisfaction_matrix <- as.matrix(survey_data[, c("Age", "Satisfaction")])
mean(age_satisfaction_matrix)
[1] 20.35
department_matrix <- as.matrix(aggregate(Satisfaction ~ Department,data = survey_data,FUN = mean))

department_matrix
     Department  Satisfaction
[1,] "Finance"   "6.4"       
[2,] "HR"        "7.8"       
[3,] "IT"        "6.4"       
[4,] "Marketing" "6.4"       
transpose_matrix<- t(department_matrix)
data.frame(survey_data)
dim(survey_data)
[1] 20  5
filtered_data <- subset(survey_data, Age >= 30 & Age <= 40) 
mean(filtered_data$Age)
[1] 34.55556
hist(survey_data$Age)

hist(survey_data$Satisfaction)

boxplot(Satisfaction ~ Department, data = survey_data)

boxplot(Age~Gender, data= survey_data)


Q1 <- quantile(survey_data$Satisfaction, 0.25, na.rm = TRUE)
Q3 <- quantile(survey_data$Satisfaction, 0.75, na.rm = TRUE)
IQR_value <- IQR(survey_data$Satisfaction, na.rm = TRUE)

lower_bound <- Q1 - 1.5 * IQR_value
upper_bound <- Q3 + 1.5 * IQR_value

outliers <- survey_data[lower_bound, upper_bound]
LS0tDQp0aXRsZTogIlByb2plY3QgMyBLYXVuZWEgTmdvYmVoIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KSG93IHRvIGFjZXNzIGEgY29sdW1uIGluIFI6DQpXZSBoYXZlIHRoZSBkYXRhc2V0IHN1cnZleV9kYXRhDQpXZSB3aWxsIGJlIGxvb2tpbmcgYXQgc2F0aXNmYWN0aW9uIHNjb3JlczoNCg0KU28sIHdlIHdpbGwgZXh0cmFjdCB0aGUgU2F0aXNmYWN0aW9uIGNvbHVtbiINCg0KVGhlIGNvZGUgd2Ugd2lsbCB1c2UgaXVzIGFzIGZvbGxvd3M6DQoNCmBgYHtyfQ0Kc2F0aTwtc3VydmV5X2RhdGEkU2F0aXNmYWN0aW9uDQptZWFuKHNhdGkpDQptZWRpYW4oc2F0aSkNCmhyX2FnZXMgPC0gc3VydmV5X2RhdGEkQWdlW3N1cnZleV9kYXRhJERlcGFydG1lbnQgPT0gIkhSIl0NCm1lYW4oaHJfYWdlcykNCmFnZV9zYXRpc2ZhY3Rpb25fbWF0cml4IDwtIGFzLm1hdHJpeChzdXJ2ZXlfZGF0YVssIGMoIkFnZSIsICJTYXRpc2ZhY3Rpb24iKV0pDQptZWFuKGFnZV9zYXRpc2ZhY3Rpb25fbWF0cml4KQ0KZGVwYXJ0bWVudF9tYXRyaXggPC0gYXMubWF0cml4KGFnZ3JlZ2F0ZShTYXRpc2ZhY3Rpb24gfiBEZXBhcnRtZW50LGRhdGEgPSBzdXJ2ZXlfZGF0YSxGVU4gPSBtZWFuKSkNCg0KZGVwYXJ0bWVudF9tYXRyaXgNCnRyYW5zcG9zZV9tYXRyaXg8LSB0KGRlcGFydG1lbnRfbWF0cml4KQ0KZGF0YS5mcmFtZShzdXJ2ZXlfZGF0YSkNCmRpbShzdXJ2ZXlfZGF0YSkNCmZpbHRlcmVkX2RhdGEgPC0gc3Vic2V0KHN1cnZleV9kYXRhLCBBZ2UgPj0gMzAgJiBBZ2UgPD0gNDApIA0KbWVhbihmaWx0ZXJlZF9kYXRhJEFnZSkNCmhpc3Qoc3VydmV5X2RhdGEkQWdlKQ0KaGlzdChzdXJ2ZXlfZGF0YSRTYXRpc2ZhY3Rpb24pDQpib3hwbG90KFNhdGlzZmFjdGlvbiB+IERlcGFydG1lbnQsIGRhdGEgPSBzdXJ2ZXlfZGF0YSkNCmJveHBsb3QoQWdlfkdlbmRlciwgZGF0YT0gc3VydmV5X2RhdGEpDQoNClExIDwtIHF1YW50aWxlKHN1cnZleV9kYXRhJFNhdGlzZmFjdGlvbiwgMC4yNSwgbmEucm0gPSBUUlVFKQ0KUTMgPC0gcXVhbnRpbGUoc3VydmV5X2RhdGEkU2F0aXNmYWN0aW9uLCAwLjc1LCBuYS5ybSA9IFRSVUUpDQpJUVJfdmFsdWUgPC0gSVFSKHN1cnZleV9kYXRhJFNhdGlzZmFjdGlvbiwgbmEucm0gPSBUUlVFKQ0KDQpsb3dlcl9ib3VuZCA8LSBRMSAtIDEuNSAqIElRUl92YWx1ZQ0KdXBwZXJfYm91bmQgPC0gUTMgKyAxLjUgKiBJUVJfdmFsdWUNCg0Kb3V0bGllcnMgPC0gc3VydmV5X2RhdGFbbG93ZXJfYm91bmQsIHVwcGVyX2JvdW5kXQ0KDQoNCmBgYA0K