For example, with this code:
# Set the DataFrame
Wuhan_S_df_filter <- read.csv(file.choose(), header = T, sep = ",")
#Plot
Wuhan_S_df_filter %>%
ggplot(aes(x = dN, y = dS)) +
geom_point(aes(color = Label_ID2)) +
scale_y_continuous(trans='log10') +
scale_x_continuous(trans='log10') +
labs(title = "Pairwise Comparison M Protein",
subtitle = "Wuhan versus pathogenic variants in humans",
x = "dN rate",
y = "dS rate",
color = "Comparison") +
scale_color_manual(labels=c(
"SARS2-CoV vs SARS1-CoV",
"SARS2-CoV vs MERS-CoV",
"SARS2-CoV vs SARSr-bat-CoV",
"SARS2-CoV vs SARSr-bat-RaTG13-CoV",
"SARS2-CoV vs SARSr-bat-BM4831-CoV",
"SARS2-CoV vs SARSr-Pangolin-CoV"),
values=c(
"#0000FF",
"#800080",
"#00FFFF",
"#808000",
"#00FF00",
"#FF0000" )) +
theme_gray() +
theme(axis.title = element_text())
My new DF (filtered) have this content (part of then):
Number, ID1, ID2, dN, dS, t, Label_ID1, Label_ID2, Group
163355,YP_009724390 , AVP78031 ,0.0429,0.9339,0.7181, SARS2-CoV , SARSr-bat-CoV , Inter
163356,YP_009724390 , AVP78042 ,0.0427,1.0791,0.8011, SARS2-CoV , SARSr-bat-CoV , Inter
163357,YP_009724390 , ATO98108 ,0.0577,1.5007,1.2546, SARS2-CoV , SARSr-bat-CoV , Inter
163358,YP_009724390 , ATO98120 ,0.0705,1.8456,1.5053, SARS2-CoV , SARSr-bat-CoV , Inter
163359,YP_009724390 , ATO98132 ,0.06,1.7172,1.3582, SARS2-CoV , SARSr-bat-CoV , Inter
163360,YP_009724390 , ATO98145 ,0.0777,1.3141,1.1472, SARS2-CoV , SARSr-bat-CoV , Inter
163361,YP_009724390 , ATO98157 ,0.0509,1.7169,1.3887, SARS2-CoV , SARSr-bat-CoV , Inter
163362,YP_009724390 , ATO98169 ,0.0572,1.4994,1.2218, SARS2-CoV , SARSr-bat-CoV , Inter
163363,YP_009724390 , ATO98181 ,0.0574,2.5492,2.005, SARS2-CoV , SARSr-bat-CoV , Inter
163364,YP_009724390 , ATO98193 ,0.0708,1.5942,1.3335, SARS2-CoV , SARSr-bat-CoV , Inter
163365,YP_009724390 , ATO98205 ,0.0504,1.5662,1.2405, SARS2-CoV , SARSr-bat-CoV , Inter
163366,YP_009724390 , ATO98218 ,0.0537,1.6191,1.2918, SARS2-CoV , SARSr-bat-CoV , Inter
163367,YP_009724390 , ATO98231 ,0.0604,1.6006,1.2974, SARS2-CoV , SARSr-bat-CoV , Inter
163368,YP_009724390 , ACU31032 ,0.0704,1.3902,1.1675, SARS2-CoV , SARSr-bat-CoV , Inter
163369,YP_009724390 , ABD75323 ,0.0767,1.4571,1.2149, SARS2-CoV , SARSr-bat-CoV , Inter
163370,YP_009724390 , ABD75332 ,0.0576,2.0601,1.6651, SARS2-CoV , SARSr-bat-CoV , Inter
163371,YP_009724390 , AAZ67052 ,0.0575,2.1861,1.753, SARS2-CoV , SARSr-bat-CoV , Inter
163372,YP_009724390 , QHR63300 ,0.006,0.1936,0.1445, SARS2-CoV , SARSr-bat-RaTG13-CoV , Inter
163373,YP_009724390 , YP_003858584 ,0.1156,2.9016,2.1998, SARS2-CoV , SARSr-bat-BM4831-CoV , Inter
163374,YP_009724390 , ADK66841 ,0.1156,2.9016,2.1998, SARS2-CoV , SARSr-bat-BM4831-CoV , Inter
163530,YP_009724390 , YP_009047204 ,0.5809,2.9256,3.3527, SARS2-CoV , MERS-CoV , Inter
163531,YP_009724390 , ANF29162 ,0.5809,2.9256,3.3527, SARS2-CoV , MERS-CoV , Inter
163532,YP_009724390 , ANF29173 ,0.5809,2.9256,3.3527, SARS2-CoV , MERS-CoV , Inter
163533,YP_009724390 , ANF29184 ,0.5809,2.9256,3.3527, SARS2-CoV , MERS-CoV , Inter
163534,YP_009724390 , ANF29195 ,0.5809,2.9256,3.3527, SARS2-CoV , MERS-CoV , Inter
163535,YP_009724390 , ANF29206 ,0.5809,2.9256,3.3527, SARS2-CoV , MERS-CoV , Inter
But this dosen´t work for me:
> "#0000FF",
Error: unexpected ',' in " "#0000FF","
> "#800080",
Error: unexpected ',' in " "#800080","
> "#00FFFF",
Error: unexpected ',' in " "#00FFFF","
> "#808000",
Error: unexpected ',' in " "#808000","
> "#00FF00",
Error: unexpected ',' in " "#00FF00","
> "#FF0000" )) +
Error: unexpected ')' in " "#FF0000" )"
I hope this helps you reproduce the example.