WCS New

[kirillkoncha]

[agricolamz]

I think there is a problem with hex codes

library(lingtypology)
df <- wcs.feature("WCS")

library(tidyverse)
df %>% 
  mutate(letters = str_extract(grid_coordinates, "\\w"),
         digits = str_extract(grid_coordinates, "\\d{1,2}")) %>% 
  mutate(digits = as.double(digits),
         letters = factor(letters, levels = rev(LETTERS[1:10]))) %>% 
  distinct(digits, letters, hex_code) %>% 
  filter(hex_code != "") %>% 
  View()
  arrange(digits, letters) %>% 
  ggplot(aes(digits, letters, fill = hex_code))+
  geom_tile(color = "black", show.legend = FALSE)