Still not sure if that's what you need. I spent like an hour trying to figure out how to use reprex and datapasta. I just wished we have learned some R at college before. 
dpasta(example_data)
#> Error in dpasta(example_data): konnte Funktion "dpasta" nicht finden
data.frame(
stringsAsFactors = FALSE,
check.names = FALSE,
Porpoise Number = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L),
XNorth = c("6172826,456",
"6172414,223","6172414,221","6172567,639",
"6172559,282","6172559,289","6172567,881",
"6172572,18","6172654,191","6172882,358"),
YEast = c("222676,4847",
"222076,6291","222076,6538","222190,1839",
"222237,9557","222237,9375","222186,9024",
"222199,7656","222214,7645","222630,447")
)
#> Porpoise Number XNorth YEast
#> 1 1 6172826,456 222676,4847
#> 2 1 6172414,223 222076,6291
#> 3 1 6172414,221 222076,6538
#> 4 1 6172567,639 222190,1839
#> 5 2 6172559,282 222237,9557
#> 6 2 6172559,289 222237,9375
#> 7 2 6172567,881 222186,9024
#> 8 3 6172572,18 222199,7656
#> 9 3 6172654,191 222214,7645
#> 10 3 6172882,358 222630,447
ggplot(example_data, aes(x = XNorth, y = YEast, color = as.factor("Porposise Number"))) + geom_point(size = 3, shape = 18) + labs(y= "East coordinate", x = "North coordinate", color = "Porpoise Number") + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))