This project shows how to merge training data and test data from a wearables device analysis into a tidy data format for future analysis. The data comes from the UCI HAR Dataset located here:
https://archive.ics.uci.edu/ml/datasets/human+activity+recognition+using+smartphones
features <- fread("UCI-HAR-Dataset/features.txt", col.names = c("index", "featureNames"))
activityLabels <- fread("UCI-HAR-Dataset/activity_labels.txt", col.names = c("classLabels", "activityName"))
featuresDesired <- grep("(mean|std)\\(\\)", features[, featureNames])
measurements <- features[featuresDesired, featureNames]
measurements <- gsub('[()]', '', measurements)training <- fread("UCI-HAR-Dataset/train/X_train.txt")[, featuresDesired, with = FALSE]
data.table::setnames(training, colnames(training), measurements)
trainingActivities <- fread("UCI-HAR-Dataset/train/Y_train.txt", col.names = c("Activity"))
trainingSubjects <- fread("UCI-HAR-Dataset/train/subject_train.txt", col.names = c("SubjectNumber"))
training <- cbind(trainingSubjects, trainingActivities, training)test <- fread("UCI-HAR-Dataset/test/X_test.txt")[, featuresDesired, with = FALSE]
data.table::setnames(test, colnames(test), measurements)
testActivities <- fread("UCI-HAR-Dataset/test/Y_test.txt", col.names = c("Activity"))
testSubjects <- fread("UCI-HAR-Dataset/test/subject_test.txt", col.names = c("SubjectNumber"))
test <- cbind(testSubjects, testActivities, test)combined <- rbind(training, test, 'fill' = TRUE)combined[["Activity"]] <- factor(combined[, Activity]
, levels = activityLabels[["classLabels"]]
, labels = activityLabels[["activityName"]])
combined[["SubjectNumber"]] <- as.factor(combined[, SubjectNumber])
combined <- reshape2::melt(data = combined, id = c("SubjectNumber", "Activity"))
combined <- reshape2::dcast(data = combined, SubjectNumber + Activity ~ variable, fun.aggregate = mean)
data.table::fwrite(x = combined, file = "tidyData.csv", quote = FALSE)
head(combined)## SubjectNumber Activity tBodyAcc-mean-X tBodyAcc-mean-Y
## 1 1 WALKING 0.2773308 -0.017383819
## 2 1 WALKING_UPSTAIRS 0.2554617 -0.023953149
## 3 1 WALKING_DOWNSTAIRS 0.2891883 -0.009918505
## 4 1 SITTING 0.2612376 -0.001308288
## 5 1 STANDING 0.2789176 -0.016137590
## 6 1 LAYING 0.2215982 -0.040513953
## tBodyAcc-mean-Z tBodyAcc-std-X tBodyAcc-std-Y tBodyAcc-std-Z
## 1 -0.1111481 -0.28374026 0.114461337 -0.26002790
## 2 -0.0973020 -0.35470803 -0.002320265 -0.01947924
## 3 -0.1075662 0.03003534 -0.031935943 -0.23043421
## 4 -0.1045442 -0.97722901 -0.922618642 -0.93958629
## 5 -0.1106018 -0.99575990 -0.973190056 -0.97977588
## 6 -0.1132036 -0.92805647 -0.836827406 -0.82606140
## tGravityAcc-mean-X tGravityAcc-mean-Y tGravityAcc-mean-Z
## 1 0.9352232 -0.2821650 -0.06810286
## 2 0.8933511 -0.3621534 -0.07540294
## 3 0.9318744 -0.2666103 -0.06211996
## 4 0.8315099 0.2044116 0.33204370
## 5 0.9429520 -0.2729838 0.01349058
## 6 -0.2488818 0.7055498 0.44581772
## tGravityAcc-std-X tGravityAcc-std-Y tGravityAcc-std-Z
## 1 -0.9766096 -0.9713060 -0.9477172
## 2 -0.9563670 -0.9528492 -0.9123794
## 3 -0.9505598 -0.9370187 -0.8959397
## 4 -0.9684571 -0.9355171 -0.9490409
## 5 -0.9937630 -0.9812260 -0.9763241
## 6 -0.8968300 -0.9077200 -0.8523663
## tBodyAccJerk-mean-X tBodyAccJerk-mean-Y tBodyAccJerk-mean-Z
## 1 0.07404163 0.0282721096 -0.004168406
## 2 0.10137273 0.0194863076 -0.045562545
## 3 0.05415532 0.0296504490 -0.010971973
## 4 0.07748252 -0.0006191028 -0.003367792
## 5 0.07537665 0.0079757309 -0.003685250
## 6 0.08108653 0.0038382040 0.010834236
## tBodyAccJerk-std-X tBodyAccJerk-std-Y tBodyAccJerk-std-Z
## 1 -0.11361560 0.0670025 -0.5026998
## 2 -0.44684389 -0.3782744 -0.7065935
## 3 -0.01228386 -0.1016014 -0.3457350
## 4 -0.98643071 -0.9813720 -0.9879108
## 5 -0.99460454 -0.9856487 -0.9922512
## 6 -0.95848211 -0.9241493 -0.9548551
## tBodyGyro-mean-X tBodyGyro-mean-Y tBodyGyro-mean-Z tBodyGyro-std-X
## 1 -0.04183096 -0.06953005 0.08494482 -0.4735355
## 2 0.05054938 -0.16617002 0.05835955 -0.5448711
## 3 -0.03507819 -0.09093713 0.09008501 -0.4580305
## 4 -0.04535006 -0.09192415 0.06293138 -0.9772113
## 5 -0.02398773 -0.05939722 0.07480075 -0.9871919
## 6 -0.01655309 -0.06448612 0.14868944 -0.8735439
## tBodyGyro-std-Y tBodyGyro-std-Z tBodyGyroJerk-mean-X
## 1 -0.054607769 -0.3442666 -0.08999754
## 2 0.004105184 -0.5071687 -0.12223277
## 3 -0.126349195 -0.1247025 -0.07395920
## 4 -0.966473895 -0.9414259 -0.09367938
## 5 -0.987734440 -0.9806456 -0.09960921
## 6 -0.951090440 -0.9082847 -0.10727095
## tBodyGyroJerk-mean-Y tBodyGyroJerk-mean-Z tBodyGyroJerk-std-X
## 1 -0.03984287 -0.04613093 -0.2074219
## 2 -0.04214859 -0.04071255 -0.6147865
## 3 -0.04399028 -0.02704611 -0.4870273
## 4 -0.04021181 -0.04670263 -0.9917316
## 5 -0.04406279 -0.04895055 -0.9929451
## 6 -0.04151729 -0.07405012 -0.9186085
## tBodyGyroJerk-std-Y tBodyGyroJerk-std-Z tBodyAccMag-mean tBodyAccMag-std
## 1 -0.3044685 -0.4042555 -0.13697118 -0.21968865
## 2 -0.6016967 -0.6063320 -0.12992763 -0.32497093
## 3 -0.2388248 -0.2687615 0.02718829 0.01988435
## 4 -0.9895181 -0.9879358 -0.94853679 -0.92707842
## 5 -0.9951379 -0.9921085 -0.98427821 -0.98194293
## 6 -0.9679072 -0.9577902 -0.84192915 -0.79514486
## tGravityAccMag-mean tGravityAccMag-std tBodyAccJerkMag-mean
## 1 -0.13697118 -0.21968865 -0.14142881
## 2 -0.12992763 -0.32497093 -0.46650345
## 3 0.02718829 0.01988435 -0.08944748
## 4 -0.94853679 -0.92707842 -0.98736420
## 5 -0.98427821 -0.98194293 -0.99236779
## 6 -0.84192915 -0.79514486 -0.95439626
## tBodyAccJerkMag-std tBodyGyroMag-mean tBodyGyroMag-std
## 1 -0.07447175 -0.16097955 -0.1869784
## 2 -0.47899162 -0.12673559 -0.1486193
## 3 -0.02578772 -0.07574125 -0.2257244
## 4 -0.98412002 -0.93089249 -0.9345318
## 5 -0.99309621 -0.97649379 -0.9786900
## 6 -0.92824563 -0.87475955 -0.8190102
## tBodyGyroJerkMag-mean tBodyGyroJerkMag-std fBodyAcc-mean-X
## 1 -0.2987037 -0.3253249 -0.20279431
## 2 -0.5948829 -0.6485530 -0.40432178
## 3 -0.2954638 -0.3065106 0.03822918
## 4 -0.9919763 -0.9883087 -0.97964124
## 5 -0.9949668 -0.9947332 -0.99524993
## 6 -0.9634610 -0.9358410 -0.93909905
## fBodyAcc-mean-Y fBodyAcc-mean-Z fBodyAcc-std-X fBodyAcc-std-Y
## 1 0.089712726 -0.3315601 -0.31913472 0.05604001
## 2 -0.190976721 -0.4333497 -0.33742819 0.02176951
## 3 0.001549908 -0.2255745 0.02433084 -0.11296374
## 4 -0.944084550 -0.9591849 -0.97641231 -0.91727501
## 5 -0.977070848 -0.9852971 -0.99602835 -0.97229310
## 6 -0.867065205 -0.8826669 -0.92443743 -0.83362556
## fBodyAcc-std-Z fBodyAccJerk-mean-X fBodyAccJerk-mean-Y
## 1 -0.27968675 -0.17054696 -0.03522552
## 2 0.08595655 -0.47987525 -0.41344459
## 3 -0.29792789 -0.02766387 -0.12866716
## 4 -0.93446956 -0.98659702 -0.98157947
## 5 -0.97793726 -0.99463080 -0.98541870
## 6 -0.81289156 -0.95707388 -0.92246261
## fBodyAccJerk-mean-Z fBodyAccJerk-std-X fBodyAccJerk-std-Y
## 1 -0.4689992 -0.1335866 0.1067399
## 2 -0.6854744 -0.4619070 -0.3817771
## 3 -0.2883347 -0.0863279 -0.1345800
## 4 -0.9860531 -0.9874930 -0.9825139
## 5 -0.9907522 -0.9950738 -0.9870182
## 6 -0.9480609 -0.9641607 -0.9322179
## fBodyAccJerk-std-Z fBodyGyro-mean-X fBodyGyro-mean-Y fBodyGyro-mean-Z
## 1 -0.5347134 -0.3390322 -0.10305942 -0.25594094
## 2 -0.7260402 -0.4926117 -0.31947461 -0.45359721
## 3 -0.4017215 -0.3524496 -0.05570225 -0.03186943
## 4 -0.9883392 -0.9761615 -0.97583859 -0.95131554
## 5 -0.9923498 -0.9863868 -0.98898446 -0.98077312
## 6 -0.9605870 -0.8502492 -0.95219149 -0.90930272
## fBodyGyro-std-X fBodyGyro-std-Y fBodyGyro-std-Z fBodyAccMag-mean
## 1 -0.5166919 -0.03350816 -0.4365622 -0.12862345
## 2 -0.5658925 0.15153891 -0.5717078 -0.35239594
## 3 -0.4954225 -0.18141473 -0.2384436 0.09658453
## 4 -0.9779042 -0.96234504 -0.9439178 -0.94778292
## 5 -0.9874971 -0.98710773 -0.9823453 -0.98535636
## 6 -0.8822965 -0.95123205 -0.9165825 -0.86176765
## fBodyAccMag-std fBodyBodyAccJerkMag-mean fBodyBodyAccJerkMag-std
## 1 -0.3980326 -0.05711940 -0.1034924
## 2 -0.4162601 -0.44265216 -0.5330599
## 3 -0.1865303 0.02621849 -0.1040523
## 4 -0.9284448 -0.98526213 -0.9816062
## 5 -0.9823138 -0.99254248 -0.9925360
## 6 -0.7983009 -0.93330036 -0.9218040
## fBodyBodyGyroMag-mean fBodyBodyGyroMag-std fBodyBodyGyroJerkMag-mean
## 1 -0.1992526 -0.3210180 -0.3193086
## 2 -0.3259615 -0.1829855 -0.6346651
## 3 -0.1857203 -0.3983504 -0.2819634
## 4 -0.9584356 -0.9321984 -0.9897975
## 5 -0.9846176 -0.9784661 -0.9948154
## 6 -0.8621902 -0.8243194 -0.9423669
## fBodyBodyGyroJerkMag-std
## 1 -0.3816019
## 2 -0.6939305
## 3 -0.3919199
## 4 -0.9870496
## 5 -0.9946711
## 6 -0.9326607