擅长:python、mysql、java
<p>这里有一个方法可以在<strong>R</strong></p>
<pre><code># Your data
df <- read.table(text="x y1
0 -65.950939
0.01417027519 -65.950969
0.02834055037 -65.950946
0.04251082556 -65.950961
x y2
0 -39.797446
0.01417027519 -39.796663
0.02834055037 -39.794279
0.04251082556 -39.790951")
# Create indicator for blocks
df$tag <- cumsum(grepl("[[:alpha:]]",df$V1))
# Reomve letters from columns
df <- df[!grepl("[[:alpha:]]",df$V1),]
# Convert to numerics
df[] <- sapply(df , as.numeric)
#plot
library(ggplot2)
ggplot(df , aes(V1 , V2 )) + geom_point() + facet_wrap(~tag , scales="free")
</code></pre>