data=read.csv("C://Users//csas//Downloads//black_white_wage_gap.csv")
data## year white_median white_average black_median black_average white_men_median
## 1 2022 24.96 34.49 19.60 25.61 27.11
## 2 2021 25.40 34.50 19.45 25.40 27.76
## 3 2020 25.98 34.86 19.85 26.03 28.36
## 4 2019 24.39 32.79 18.45 24.09 27.39
## 5 2018 23.97 32.44 17.57 23.53 26.79
## 6 2017 23.87 31.64 17.84 22.95 26.36
## 7 2016 23.56 31.30 18.15 23.09 26.34
## 8 2015 23.37 30.75 17.38 22.72 25.73
## 9 2014 22.73 29.49 17.25 22.17 24.89
## 10 2013 22.73 29.72 17.61 22.34 25.19
## 11 2012 22.86 29.59 17.23 22.32 25.46
## 12 2011 22.73 29.27 17.69 22.32 25.24
## 13 2010 23.18 29.86 18.27 22.71 26.08
## 14 2009 23.35 29.86 18.37 22.70 26.49
## 15 2008 22.92 29.09 17.64 22.06 26.09
## 16 2007 22.78 29.02 17.70 22.19 25.85
## 17 2006 22.67 28.62 18.00 22.30 25.55
## 18 2005 22.63 28.56 17.86 21.85 25.59
## 19 2004 23.18 28.67 18.57 22.35 26.21
## 20 2003 23.08 28.65 18.42 22.35 26.08
## 21 2002 22.93 28.62 18.05 21.97 26.05
## 22 2001 22.72 28.08 17.58 21.59 25.82
## 23 2000 22.06 27.47 17.48 21.49 25.56
## 24 1999 21.81 27.06 17.53 21.09 25.39
## 25 1998 21.48 26.42 17.11 20.67 24.79
## 26 1997 20.75 25.59 16.30 19.76 23.81
## 27 1996 20.38 25.07 15.95 19.30 23.36
## 28 1995 20.19 24.97 15.99 19.76 23.16
## 29 1994 19.86 24.99 15.87 19.98 23.43
## 30 1993 20.11 24.52 16.12 19.62 23.79
## 31 1992 20.41 24.38 16.23 19.40 23.64
## 32 1991 20.70 24.37 16.12 19.34 23.73
## 33 1990 20.39 24.27 16.29 19.11 23.96
## 34 1989 20.35 24.23 16.20 19.27 24.09
## 35 1988 20.41 24.85 16.65 19.96 24.10
## 36 1987 20.31 24.62 16.32 19.63 24.72
## 37 1986 20.35 24.42 16.29 19.46 25.36
## 38 1985 19.76 23.83 15.95 19.06 24.79
## 39 1984 19.82 23.49 15.97 19.03 24.17
## 40 1983 19.58 23.35 16.00 19.10 24.41
## 41 1982 19.74 23.31 15.92 18.87 24.60
## 42 1981 19.43 23.08 16.04 19.06 24.60
## 43 1980 19.91 23.19 16.46 19.16 25.08
## 44 1979 19.97 23.66 16.69 19.56 25.51
## 45 1978 20.26 23.46 16.20 19.09 25.08
## 46 1977 20.00 23.38 16.23 18.93 24.94
## 47 1976 20.06 23.47 16.25 19.20 24.32
## 48 1975 19.96 23.30 16.15 18.46 24.68
## 49 1974 20.04 23.21 16.07 18.36 24.55
## 50 1973 20.53 23.72 15.96 18.61 24.98
## white_men_average black_men_median black_men_average white_women_median
## 1 39.10 20.02 27.43 22.47
## 2 38.78 20.08 26.88 22.76
## 3 39.08 20.56 27.40 23.05
## 4 36.84 19.31 25.18 22.01
## 5 36.55 18.66 24.67 21.75
## 6 35.30 18.15 24.27 21.48
## 7 35.12 18.42 24.53 21.14
## 8 34.57 18.40 24.00 20.77
## 9 32.89 18.00 23.02 20.12
## 10 33.42 18.73 23.45 20.24
## 11 33.34 18.02 23.57 20.28
## 12 32.73 18.35 23.26 20.34
## 13 33.69 18.99 23.72 20.32
## 14 33.96 19.64 23.99 20.56
## 15 32.87 18.95 23.16 20.34
## 16 32.78 18.72 23.22 20.33
## 17 32.24 18.97 23.53 20.23
## 18 32.18 18.64 22.99 20.04
## 19 32.52 19.42 23.78 20.14
## 20 32.42 19.25 23.46 20.07
## 21 32.41 19.49 23.16 19.82
## 22 31.86 19.00 22.92 19.72
## 23 31.34 18.77 22.97 18.87
## 24 30.77 18.88 22.65 18.70
## 25 29.98 18.07 22.00 18.16
## 26 29.02 17.33 21.07 18.06
## 27 28.42 16.90 20.40 17.59
## 28 28.41 17.20 20.87 17.36
## 29 28.29 17.19 21.26 17.53
## 30 27.87 17.27 20.68 17.58
## 31 27.85 17.19 20.46 17.36
## 32 28.02 17.25 20.57 17.04
## 33 28.04 17.50 20.55 17.13
## 34 28.16 17.52 20.66 17.01
## 35 29.34 18.18 21.97 16.92
## 36 29.11 18.32 21.57 16.81
## 37 28.94 18.24 21.41 16.36
## 38 28.18 17.90 20.86 16.02
## 39 27.72 18.21 21.16 15.95
## 40 27.67 17.98 21.26 15.67
## 41 27.65 18.24 20.97 15.44
## 42 27.37 18.90 21.31 15.41
## 43 27.51 18.70 21.40 15.41
## 44 28.03 19.15 22.00 15.47
## 45 27.81 19.74 21.38 15.40
## 46 27.66 18.70 20.84 15.33
## 47 27.54 19.19 21.57 15.42
## 48 27.37 19.15 20.60 15.32
## 49 27.34 19.02 20.84 15.22
## 50 27.93 19.29 21.09 15.36
## white_women_average black_women_median black_women_average
## 1 29.50 19.00 23.99
## 2 29.90 18.85 24.13
## 3 30.30 19.26 24.87
## 4 28.41 18.08 23.17
## 5 28.01 17.34 22.55
## 6 27.71 17.22 21.81
## 7 27.22 17.13 21.86
## 8 26.66 16.64 21.65
## 9 25.87 16.32 21.46
## 10 25.79 16.89 21.42
## 11 25.58 16.52 21.29
## 12 25.64 16.98 21.55
## 13 25.92 17.45 21.90
## 14 25.67 17.54 21.68
## 15 25.13 16.65 21.16
## 16 25.03 17.06 21.33
## 17 24.76 17.40 21.27
## 18 24.71 16.64 20.90
## 19 24.59 17.65 21.16
## 20 24.70 17.53 21.43
## 21 24.56 17.07 20.97
## 22 24.00 16.63 20.48
## 23 23.30 16.92 20.24
## 24 23.01 16.04 19.78
## 25 22.56 16.13 19.52
## 26 21.87 15.33 18.62
## 27 21.43 15.03 18.33
## 28 21.20 15.21 18.76
## 29 21.38 15.18 18.81
## 30 20.90 15.51 18.66
## 31 20.61 15.34 18.44
## 32 20.35 15.27 18.19
## 33 20.05 15.16 17.77
## 34 19.81 15.13 17.94
## 35 19.77 14.98 18.02
## 36 19.49 14.98 17.77
## 37 19.21 15.04 17.57
## 38 18.70 14.62 17.31
## 39 18.40 14.20 16.93
## 40 18.19 14.23 16.95
## 41 18.06 14.44 16.80
## 42 17.73 14.36 16.78
## 43 17.71 14.12 16.85
## 44 17.91 14.46 16.95
## 45 17.68 14.00 16.76
## 46 17.57 14.06 16.91
## 47 17.79 13.97 16.73
## 48 17.45 13.41 16.14
## 49 17.23 13.46 15.68
## 50 17.57 13.38 15.83##for apply PCA
PCA=princomp(data)
print(PCA)## Call:
## princomp(x = data)
##
## Standard deviations:
## Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6
## 16.33824800 2.30752269 0.65720467 0.45181306 0.36778921 0.28225041
## Comp.7 Comp.8 Comp.9 Comp.10 Comp.11 Comp.12
## 0.19696221 0.16485956 0.14405534 0.12377701 0.10998794 0.04036392
## Comp.13
## 0.01130489
##
## 13 variables and 50 observations.