data.frame(
country = as.factor(c("Russia", "United States of America",
"Italy", "South Korea", "El Salvador",
"Austria", "Germany", "France",
"England", "Canada", "Brazil", "Spain",
"Colombia", "Panama", "Japan", "Croatia",
"Netherlands", "Uruguay", "Norway", "Peru",
"Switzerland", "Portugal", "Egypt",
"Mexico", "South Africa", "China", "Poland",
"Malaysia", "Chile")),
shelter = as.factor(c("Av del Matador 432",
"Hollywood Street 6500",
"V Settimo Torinese", "Gyeonggi-do 537",
"Calle los Pozos 45", "Stephansplatz 5010",
"Str Baunatal 325", "Route de Hyds 566",
"Green Street 32", "R de la Reine 320",
"R Salvador 441", "Str del Ramirez 1623",
"Str del Silencio", "Str Plaza Fidanque",
"Av Fukuoka 674", "R Rijeka 308",
"Av Willem Dreesweg 1188",
"Str de los suspiros 38", "V Salgs 1904", "Av Arequipa 5428",
"Av Hauptstrasse 585",
"R Casabranca 351", "Soud Street", "Calle 5 de Mayo 706",
"Str Mist Hill 125", "Av Beijing",
"R Kielbasnicza 32", "Av Banting 9",
"Str Royal Palace 519")),
ally = as.factor(c("The Terminator", "Rocky Balboa",
"Vito Corleone", "Deadpool",
"Martin Riggs", "Buzz Lightyear", "Wolverine",
"V", "Ace Ventura", "Frank Drebin",
"Tony Stark", "Blade", "Peter Venkman",
"Marty McFly", "Jason Bourne",
"Harry Callahan", "Rambo", "Forrest Gump", "Neo",
"John McClane", "James Bond", "Ellen Ripley",
"Jack Sparrow",
"Indiana Jones", "Tyler Durden", "Zorro",
"Rick Blaine", "T. E. Lawrence", "Punisher")),
influence_in_the_region = as.factor(c("10.00%", "12.00%", "5.00%", "4.00%",
"65.00%", "32.00%", "11.00%", "3.00%",
"4.00%", "54.00%", "1.00%", "31.00%",
"6.00%", "33.00%", "77.00%", "91.00%",
"86.00%", "5.00%", "99.00%", "20.00%",
"53.00%", "87.00%", "55.00%", "4.00%",
"23.00%", "71.00%", "23.00%", "43.00%",
"60.00%")),
dog_food_availability = as.factor(c("High", "Low", "Medium", "Medium",
"Low", "High", "Medium", "High",
"Medium", "Low", "Medium", "Low", "High",
"Medium", "Low", "High", "Medium", "High",
"Medium", "Low", "High", "Medium",
"Low", "High", "Medium", "Low", "High",
"Medium", "Low")),
qtd_guns = as.factor(c("Low", "High", "Low", "Medium",
"High", "Medium", "Low", "High",
"Medium", "High", "Low", "Medium", "High",
"Low", "High", "Medium", "High", "Low",
"Medium", "High", "Low", "Medium", "Low",
"High", "Low", "Medium", "Medium",
"High", "Low")),
assassin_name = as.factor(c("Alex Delarge", "Patrick Bateman",
"The Joker", "Freddy Krueger",
"Agent Smith", "Boba Fett",
"The Man With No Name", "Jigsaw", "Jason",
"Michael Corleone", "Jules Winnfield", "Hans Gruber",
"Gollum", "Dr. Hannibal Lecter",
"Darth Vader", "Dracula", "Norman Bates",
"Alex Forrest", "Regan MacNeil", "Amon Gaoth",
"Annie Wilkes", "Tony Camonte",
"Verbal Kint", "Tom Powers",
"Auric Goldfinger", "Max Cady", "Phyllis Dietrichson",
"J.J. Hunsecker", "Frank Booth")),
dangerousness = as.factor(c("High", "Low", "Medium", "Medium",
"High", "Low", "Low", "High", "Low",
"Low", "High", "Medium", "Medium",
"High", "High", "Medium", "Low", "Medium",
"Low", "Low", "Low", "Medium", "Medium",
"Medium", "High", "High", "High", "Low",
"Low"))
)
Now I have changed, instead of creating the table then converting it, I went straight for the conversion and it worked, but the legend got quite weird, how can I put like green for good, yellow for medium and red for bad?