andrewbtran · March 16, 2017 15:14
diff --git a/Generalized code b/Generalized code
 # Save the dataframe as a consistent name
 any_df <- sb

 # Rename the first column to "Abbrev"
 colnames(any_df)[1] <- "Abbrev"

 # Join by the similar name
 df_adjusted <- left_join(any_df, pop, by="Abbrev")

 # Do the calculations based on the values in the second column
 df_adjusted$per_capita <- df_adjusted[,2] / df_adjusted$Population * 100000
	# Save the dataframe as a consistent name
	any_df <- sb

	# Rename the first column to "Abbrev"
	colnames(any_df)[1] <- "Abbrev"

	# Join by the similar name
	df_adjusted <- left_join(any_df, pop, by="Abbrev")

	# Do the calculations based on the values in the second column
	df_adjusted$per_capita <- df_adjusted[,2] / df_adjusted$Population * 100000