# R语言代写 | 代做Lab | 统计代写 – Lab 1 R basics

R语言代写 | 代做Lab | 统计代写 – 这是一个R语言相关的代写任务，是基础的R训练题目，属于统计的范畴

### lab 1 R basics (50 points)

#### Delivery

Please put your answers in a Word document and turn it in Compass. Insert your screenshot into the Word document based on the requirement.

#### Question 1. (5 points)

For this adult_income dataset, how many variables are characters?

#### Question 2. (5 points)

Lets create a simply bar plot to display how many records we have for each education group (use the column called education). However, the factors are not ordered properly. Please reorder education, (Preschool < 1st-4th < 5th-6th < 7th-8th < 9th < 10th < 11th < 12th < HS-grad < Prof-school < Assoc-acdm < Assoc-voc < Some-college < Bachelors < Masters < Doctorate.) and generate a new barplot. Export your barplot and insert it in the word document for submission.

barplot ( table (adult_income \$ education), main=”Barplot created by Fang”)

#### Question 3 (5 points)

Under the column called workclass, there are some missing values which are labled as ?. Try to rename? as missing, and provide a summary table for this column use the table function.

library (tidyverse) table (adult_income \$ workclass)

##? Federal-gov Local-gov Never-worked

## 14

#### Question 4. (5 points)

How many of people is under 20? You need to provide a screenshot of your script with answer for delivery. Hint: You can usesumfunction here.

#### Question 5. (10 points)

Between 7 marital status (marital.status column) groups, which group works hardest per week on average (based on hours.per.week column)? You need to provide a screenshot of your script. You also need to clarify what is the average working hour per week for this group

Hint: for average, use themeanfunction.

#### Question 6 (10 points)

Load the dataset called austin_weather.csv from compass. This dataset includes historical daily temper- ature, precipitation, humidity, and windspeed for Austin, Texas from 2013 to 2017. See more details of the dataset, click here.

We are interested to calculate the average wind speed (Use the column called WindAvgMPH) when Tem- pAvgF is above 75. Check out the script below. Why the script does not work? How to fix it? So what is the average wind speed when temperature is above 75?

library (tidyverse) austin <- read_csv (“data/austin_weather.csv”) austin_above75 <- austin \$ TempAvgF > 75 # To extract a subset which has average temperature above 75. mean (austin_above75 \$ WindAvgMPH) # calculate the average WindAvgMPH for the subset

#### Question 7 (10 points)

Examine this weather dataset in Austin. Since the records for 2013 and 2017 are incomplete, you can just focus on data collected in 2014-2016.

According to National weather service heat index chart , air temperature above 80F will be labled as caution. For simplicity, lets ignore humidity for this question.

During these 3 years (2014-2016), which year has the most days of weekdays (M-F) with the temperature above 80F? Hint: you can use the column called TempHighF to answer the question. Usecountortable to summarise your data.