# get data ready
xy <- data.frame(
sub_category = c("The Beach", "River", "Night Market", "Ginger Island", "Mountain Lake", "Secret Woods", "Sewers", "Mutant Bug Lair", "Witch's Swamp", "Crab Pot", "Mines", "Cindersap Forest Pond", "Desert"),
x = c(850, 850, 800, 1150, 900, 200, 725, 725, 210, 400, 900, 300, 20),
y = c(120, 300, 100, 50, 550, 400, 260, 260, 305, 390, 610, 300, 710)
)
# write in our x and y coordinates
#write_csv(xy, "projects/archived_folder/stardew_data_folder/xy.csv")
#read_csv("projects/archived_folder/stardew_data_folder/xy.csv")
fish_prices_sf <- fish_prices |>
left_join(xy, join_by(sub_category)) |>
filter(!is.na(x)) |>
mutate(x = ifelse(item == "Angler", 815, x),
y = ifelse(item == "Angler", 500, y),
x = ifelse(item == "Ms._Angler", 815, x),
y = ifelse(item == "Ms._Angler", 500, y),
x = ifelse(item == "Crimson", 805, x),
y = ifelse(item == "Crimson", 70, y),
x = ifelse(item == "Son_of_Crimsonfish", 805, x),
y = ifelse(item == "Son_of_Crimsonfish", 70, y),
) |>
st_as_sf(coords = c("x", "y"))
# save shapefile
#saveRDS(fish_prices_sf, "projects/archived_folder/stardew_data_folder/fish_prices_sf.rds")
#fish_prices_sf <- readRDS("data/fish_prices_sf.rds")