Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data<-read.csv("data.csv")
- xlim<-max(c(abs(min(data$x)),abs(max(data$x))))
- ylim<-max(c(abs(min(data$y)),abs(max(data$y))))
- data$Color<-as.character(data$Color)
- print(data)
- ggplot(data, aes(x = x, y = y, label = Group)) +
- geom_point(aes(size = size, colour = Group), show.legend = TRUE) +
- scale_color_manual(values=c(data$Color)) +
- geom_text(size = 4) +
- scale_size(range = c(5,15)) +
- scale_x_continuous(name="x", limits=c(xlim*-1-1,xlim+1))+
- scale_y_continuous(name="y", limits=c(ylim*-1-1,ylim+1))+
- theme_bw()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement