Hi, it might help if you provide a reproducible example rather than screenshots that people can't work with.
The error seems to be in here:
uwunifrac$data$Vectors %>%
select(SampleID, PC1, PC2)
You should provide a reprex of uwunifrac
and/or uwunifrac$data$Vectors
.