我有以下的R代码
x <- c(0.01848598, 0.08052353, 0.06741172, 0.11652034)
y <- c(0.4177541, 0.4042247, 0.3964025, 0.4074685)
d <- data.frame(x,y)
ggplot(d, aes(x=x, y=y)) +
geom_point(size=4)
它创建了以下图表:
编辑 - 奖励问题已经在另一个SO问题这里中得到回答。
我有以下的R代码
x <- c(0.01848598, 0.08052353, 0.06741172, 0.11652034)
y <- c(0.4177541, 0.4042247, 0.3964025, 0.4074685)
d <- data.frame(x,y)
ggplot(d, aes(x=x, y=y)) +
geom_point(size=4)
您可以始终进行转换,以创建您想要绘制的所有段
x <- c(0.01848598, 0.08052353, 0.06741172, 0.11652034)
y <- c(0.4177541, 0.4042247, 0.3964025, 0.4074685)
d <- data.frame(x,y)
idx <- combn(1:length(x), 2)
dd <- data.frame(x=x[idx[1,]],y=y[idx[1,]], xend=x[idx[2,]], yend=y[idx[2,]])
ggplot(d,aes(x,y)) +
geom_point(data=d) +
geom_segment(data=dd, aes(xend=xend, yend=yend))