Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Wall Street Journal Employment Data
Major Field Unemployment Percent 25th % Earnings Median % Earnings 75th % Earnings Popularity
BUSINESS MANAGEMENT AND ADMINISTRATION 0.06 38000 56000 85000 1
GENERAL BUSINESS 0.053 38000 59000 91000 2
ACCOUNTING 0.054 41000 61000 94000 3
NURSING 0.022 48000 60000 80000 4
PSYCHOLOGY 0.061 30000 43000 65000 5
MARKETING AND MARKETING RESEARCH 0.059 40000 59000 90000 6
COMMUNICATIONS 0.063 35000 50000 81000 7
ELEMENTARY EDUCATION 0.036 32000 40000 49000 8
GENERAL EDUCATION 0.042 31000 41000 53000 9
COMPUTER SCIENCE 0.056 50000 77000 102000 10
ENGLISH LANGUAGE AND LITERATURE 0.067 32000 48000 75000 11
FINANCE 0.045 44000 65000 101000 12
CRIMINAL JUSTICE AND FIRE PROTECTION 0.047 36000 50000 73000 13
BIOLOGY 0.056 35000 51000 76000 14
POLITICAL SCIENCE AND GOVERNMENT 0.06 38000 57000 91000 15
ECONOMICS 0.063 42000 69000 108000 16
ELECTRICAL ENGINEERING 0.05 60000 86000 111000 17
HISTORY 0.065 34000 50000 81000 18
SOCIOLOGY 0.07 33000 45000 67000 19
LIBERAL ARTS 0.076 32000 48000 71000 20
COMMERCIAL ART AND GRAPHIC DESIGN 0.081 31000 45000 69000 21
FINE ARTS 0.074 28000 44000 65000 22
MECHANICAL ENGINEERING 0.038 60000 81000 106000 23
GENERAL ENGINEERING 0.059 47000 73000 101000 24
JOURNALISM 0.07 34000 50000 79000 25
MULTI-DISCIPLINARY OR GENERAL SCIENCE 0.046 36000 55000 81000 26
PHYSICAL FITNESS PARKS RECREATION AND LEISURE 0.048 33000 45000 61000 27
MATHEMATICS 0.05 42000 63000 95000 28
FAMILY AND CONSUMER SCIENCES 0.051 30000 40000 58000 29
SOCIAL WORK 0.068 30000 39000 51000 30
COMPUTER AND INFORMATION SYSTEMS 0.056 44000 62000 86000 31
CIVIL ENGINEERING 0.049 55000 76000 101000 32
ARCHITECTURE 0.106 37000 60000 85000 33
TREATMENT THERAPY PROFESSIONS 0.026 40000 62000 81000 34
MASS MEDIA 0.069 32000 46000 69000 35
CHEMISTRY 0.051 39000 59000 85000 36
MUSIC 0.052 30000 45000 67000 37
HOSPITALITY MANAGEMENT 0.058 32000 49000 71000 38
PHYSICAL AND HEALTH EDUCATION TEACHING 0.045 34000 46000 59000 39
HUMAN RESOURCES AND PERSONNEL MANAGEMENT 0.066 40000 55000 85000 40
ADVERTISING AND PUBLIC RELATIONS 0.061 36000 50000 74000 41
PHILOSOPHY AND RELIGIOUS STUDIES 0.072 30000 42000 65000 42
FRENCH GERMAN LATIN AND OTHER COMMON FOREIGN LANGUAGE STUDIES 0.059 32000 48000 67000 43
MANAGEMENT INFORMATION SYSTEMS AND STATISTICS 0.042 47000 71000 96000 44
DRAMA AND THEATER ARTS 0.071 28000 40000 60000 45
THEOLOGY AND RELIGIOUS VOCATIONS 0.041 25000 38000 54000 46
COMPUTER ENGINEERING 0.07 58000 81000 102000 47
ART AND MUSIC EDUCATION 0.042 32000 41000 51000 48
CHEMICAL ENGINEERING 0.038 60000 86000 117000 49
EARLY CHILDHOOD EDUCATION 0.041 28000 37000 45000 50
MEDICAL TECHNOLOGIES TECHNICIANS 0.014 44000 58000 74000 51
SPECIAL NEEDS EDUCATION 0.036 34000 42000 50000 52
PHARMACY PHARMACEUTICAL SCIENCES AND ADMINISTRATION 0.032 78000 105000 121000 53
FILM VIDEO AND PHOTOGRAPHIC ARTS 0.073 30000 45000 71000 54
ANTHROPOLOGY AND ARCHEOLOGY 0.069 30000 40000 60000 55
TRANSPORTATION SCIENCES AND TECHNOLOGIES 0.044 42000 68000 98000 56
SECONDARY TEACHER EDUCATION 0.038 35000 43000 59000 57
LANGUAGE AND DRAMA EDUCATION 0.05 32000 41000 50000 58
INDUSTRIAL AND MANUFACTURING ENGINEERING 0.056 50000 75000 100000 59
ENVIRONMENTAL SCIENCE 0.05 40000 52000 76000 60
MISCELLANEOUS EDUCATION 0.037 33000 46000 65000 61
GEOGRAPHY 0.061 40000 54000 81000 62
HEALTH AND MEDICAL ADMINISTRATIVE SERVICES 0.043 36000 51000 76000 63
MISCELLANEOUS BUSINESS & MEDICAL ADMINISTRATION 0.053 35000 52000 81000 64
ELECTRICAL ENGINEERING TECHNOLOGY 0.055 42000 65000 91000 65
AREA ETHNIC AND CIVILIZATION STUDIES 0.057 34000 48000 76000 66
ANIMAL SCIENCES 0.057 26000 40000 60000 67
GENERAL SOCIAL SCIENCES 0.082 34000 50000 74000 68
INFORMATION SCIENCES 0.059 48000 71000 95000 69
PHYSICS 0.045 39000 68000 101000 70
GENERAL AGRICULTURE 0.03 28000 44000 68000 71
INTERNATIONAL BUSINESS 0.085 38000 52000 87000 72
GEOLOGY AND EARTH SCIENCE 0.057 41000 60000 93000 73
GENERAL MEDICAL AND HEALTH SERVICES 0.058 35000 50000 71000 74
AGRICULTURE PRODUCTION AND MANAGEMENT 0.03 32000 48000 71000 75
CONSTRUCTION SERVICES 0.054 49000 65000 101000 76
HUMAN SERVICES AND COMMUNITY ORGANIZATION 0.069 29000 38000 50000 77
NATURAL RESOURCES MANAGEMENT 0.069 36000 50000 71000 78
INTERNATIONAL RELATIONS 0.058 40000 57000 93000 79
BUSINESS ECONOMICS 0.05 44000 71000 101000 80
ART HISTORY AND CRITICISM 0.069 33000 45000 71000 81
INDUSTRIAL PRODUCTION TECHNOLOGIES 0.031 46000 67000 91000 82
SOCIAL SCIENCE OR HISTORY TEACHER EDUCATION 0.03 35000 45000 58000 83
STUDIO ARTS 0.08 25000 37000 57000 84
PLANT SCIENCE AND AGRONOMY 0.027 28000 42000 71000 85
TEACHER EDUCATION: MULTIPLE LEVELS 0.011 30000 38000 48000 86
BIOCHEMICAL SCIENCES 0.071 30000 48000 80000 87
MISCELLANEOUS ENGINEERING TECHNOLOGIES 0.06 45000 65000 91000 88
COMMUNICATION TECHNOLOGIES 0.067 33000 50000 73000 89
LINGUISTICS AND COMPARATIVE LANGUAGE AND LITERATURE 0.102 30000 44000 70000 90
PRE-LAW AND LEGAL STUDIES 0.079 32000 45000 69000 91
CRIMINOLOGY 0.052 35000 50000 71000 92
MISCELLANEOUS HEALTH MEDICAL PROFESSIONS 0.033 35000 45000 62000 93
MICROBIOLOGY 0.052 40000 60000 86000 94
MEDICAL ASSISTING SERVICES 0.029 34000 51000 71000 95
INTERDISCIPLINARY SOCIAL SCIENCES 0.063 31000 40000 50000 96
COMPUTER NETWORKING AND TELECOMMUNICATIONS 0.052 35000 53000 76000 97
COMMUNICATION DISORDERS SCIENCES AND SERVICES 0.033 32000 41000 50000 98
COMPOSITION AND SPEECH 0.077 30000 40000 61000 99
INTERCULTURAL AND INTERNATIONAL STUDIES 0.066 32000 50000 71000 100
NUTRITION SCIENCES 0.064 35000 51000 71000 101
OPERATIONS LOGISTICS AND E-COMMERCE 0.047 45000 65000 97000 102
VISUAL AND PERFORMING ARTS 0.092 20000 36000 52000 103
FORESTRY 0.031 38000 50000 73000 104
AEROSPACE ENGINEERING 0.036 60000 84000 111000 105
MISCELLANEOUS ENGINEERING 0.074 42000 71000 91000 106
MULTI/INTERDISCIPLINARY STUDIES 0.055 34000 42000 50000 107
MATHEMATICS TEACHER EDUCATION 0.034 34000 42000 56000 108
ECOLOGY 0.052 31000 43000 60000 109
COMMUNITY AND PUBLIC HEALTH 0.041 31000 46000 70000 110
OTHER FOREIGN LANGUAGES 0.064 32000 45000 76000 111
PUBLIC ADMINISTRATION 0.069 36000 50000 78000 112
PHYSIOLOGY 0.046 30000 48000 68000 113
COMPUTER ADMINISTRATION MANAGEMENT AND SECURITY 0.095 39000 52000 75000 114
COSMETOLOGY SERVICES AND CULINARY ARTS 0.073 26000 41000 60000 115
SCIENCE AND COMPUTER TEACHER EDUCATION 0.05 36000 47000 58000 116
ENGINEERING TECHNOLOGIES 0.053 40000 60000 91000 117
HUMANITIES 0.084 30000 45000 62000 118
ZOOLOGY 0.067 33000 55000 81000 119
MISCELLANEOUS PSYCHOLOGY 0.103 30000 45000 71000 120
COMPUTER PROGRAMMING AND DATA PROCESSING 0.062 39000 55000 84000 121
AGRICULTURAL ECONOMICS 0.013 30000 57000 99000 122
MECHANICAL ENGINEERING RELATED TECHNOLOGIES 0.066 38000 65000 87000 123
MOLECULAR BIOLOGY 0.053 32000 50000 76000 124
MISCELLANEOUS BIOLOGY 0.053 31000 50000 69000 125
BIOLOGICAL ENGINEERING 0.068 39000 60000 94000 126
ENGINEERING AND INDUSTRIAL MANAGEMENT 0.092 50000 71000 98000 127
STATISTICS AND DECISION SCIENCE 0.069 50000 76000 108000 128
FOOD SCIENCE 0.069 34000 71000 101000 129
HEALTH AND MEDICAL PREPARATORY PROGRAMS 0.052 40000 60000 86000 130
APPLIED MATHEMATICS 0.041 52000 71000 100000 131
ENGINEERING MECHANICS PHYSICS AND SCIENCE 0.065 40000 67000 101000 132
COUNSELING PSYCHOLOGY 0.052 23000 34000 42000 133
ELECTRICAL AND MECHANIC REPAIRS AND TECHNOLOGIES 0.084 30000 44000 68000 134
INDUSTRIAL AND ORGANIZATIONAL PSYCHOLOGY 0.104 45000 62000 81000 135
MATERIALS ENGINEERING AND MATERIALS SCIENCE 0.077 57000 84000 105000 136
BIOMEDICAL ENGINEERING 0.059 45000 68000 101000 137
PETROLEUM ENGINEERING 0.044 83000 127000 178000 138
UNITED STATES HISTORY 0.151 30000 50000 96000 139
ARCHITECTURAL ENGINEERING 0.058 50000 71000 96000 140
PUBLIC POLICY 0.022 47000 65000 101000 141
NUCLEAR INDUSTRIAL RADIOLOGY AND BIOLOGICAL TECHNOLOGIES 0.022 47000 64000 81000 142
MISCELLANEOUS SOCIAL SCIENCES 0.038 38000 52000 85000 143
ENVIRONMENTAL ENGINEERING 0.022 54000 67000 90000 144
NAVAL ARCHITECTURE AND MARINE ENGINEERING 0.017 60000 96000 117000 145
ATMOSPHERIC SCIENCES AND METEOROLOGY 0.016 40000 68000 101000 146
BOTANY 0.069 26000 40000 55000 147
OCEANOGRAPHY 0.033 40000 50000 79000 148
NUCLEAR ENGINEERING 0.041 65000 96000 138000 149
ACTUARIAL SCIENCE 0 52000 81000 116000 150
COURT REPORTING 0.049 36000 55000 81000 151
METALLURGICAL ENGINEERING 0.039 50000 86000 110000 152
GEOSCIENCES 0.032 36000 52000 71000 153
NEUROSCIENCE 0.072 34000 52000 76000 154
SOCIAL PSYCHOLOGY 0.088 32000 45000 60000 155
EDUCATIONAL PSYCHOLOGY 0.109 28000 35000 51000 156
PHYSICAL SCIENCES 0.025 36000 51000 68000 157
MATHEMATICS AND COMPUTER SCIENCE 0.035 55000 91000 151000 158
LIBRARY SCIENCE 0.15 23000 36000 49000 159
MISCELLANEOUS AGRICULTURE 0.037 31000 46000 67000 160
MATERIALS SCIENCE 0.047 65000 81000 106000 161
MINING AND MINERAL ENGINEERING 0.043 71000 101000 121000 162
GENETICS 0.074 33000 71000 99000 163
MISCELLANEOUS FINE ARTS 0.162 26000 40000 49000 164
SOIL SCIENCE 0.049 43000 64000 81000 165
GEOLOGICAL AND GEOPHYSICAL ENGINEERING 0 56000 73000 101000 166
COGNITIVE SCIENCE AND BIOPSYCHOLOGY 0.045 36000 43000 91000 167
CLINICAL PSYCHOLOGY 0.195 25000 40000 61000 168
PHARMACOLOGY 0 48000 60000 101000 169
ASTRONOMY AND ASTROPHYSICS 0 56000 62000 101000 170
EDUCATIONAL ADMINISTRATION AND SUPERVISION 0 41000 65000 89000 171
SCHOOL STUDENT COUNSELING 0 18000 20000 42000 172
MILITARY TECHNOLOGIES 0.109 81000 86000 126000 173
#!/usr/bin/env Rscript
library(ggplot2)
library(gridExtra)
wsjraw <- read.delim("./CareersAndUnemployment.csv", sep=",", header=TRUE)
names(wsjraw)
xc <- wsjraw[order(wsjraw$Unemployment.Percent),]
xc$income <- factor(wsjraw$Median...Earnings)
summary(wsjraw)
xc$color[xc$Median...Earnings < 42000]<-"blue"
xc$color[xc$Median...Earnings >= 42000]<-"red"
xc$color[xc$Median...Earnings >= 70000]<-"green"
png("jobs_small.png", width=530, height=780, units='px')
dotchart(xc$Unemployment.Percent, labels=xc$Major.Field, cex = 0.3, main="Unemployment by Occupation", xlab="Unemployed Fraction", color=xc$color)
dev.off()
png("jobs.png", width=10, height=15, res=300, units='in')
dotchart(xc$Unemployment.Percent, labels=xc$Major.Field, cex = 0.3, main="Unemployment by Occupation", xlab="UnemployedFraction", color=xc$color)
dev.off()
xc$class[xc$Median...Earnings < 42000]<-"Up to $42,000"
xc$class[xc$Median...Earnings >= 42000]<-"$42,000 to $70,000"
xc$class[xc$Median...Earnings >= 70000]<-"Above $70,000"
png("jobs_g.png", width=530, height=600, units='px')
p <- ggplot(data=xc, aes(class ,Unemployment.Percent, fill=class), ylab="Unemployed Fraction")
p <- p + geom_jitter() + geom_boxplot(outlier.size=0)
print (p)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment