我复制并运行了代码 可是出不来图，提示

Error in c * my * mx : non-conformable arrays

Error in f * mx * my : non-conformable arrays

再次感谢O神的帮助。

代码没问题吖

楼主说 这两个图用的是同样的数据 可是采用不同的包 展示出来的效果却有很大的区别 能否贴出来这个图的代码供大家学习一下呀 谢谢了

说错了，本意是用同样的数据可以生成两种图。楼顶的两张图其实是不同来源的数据。

哦 原来是这样 非常感谢你 放出代码 供我们学习 再次感谢
这个图的底纹配色很好 看起来像是油画。

既然楼主这么慷慨和乐于助人，那我也来求问一下：您这个图与首页的第二图，看起来应该是差不多同样的数据。那能否也将首页第二图的代码示出，供我们这些R素人学习一下？谢谢了先。

那个也没什么，只不过用了ggquiver包，把上面代码中的geom_streamline改成geom_quiver再调整一下参数就可以实现向量场了。

install.packages("ggquiver")
library(ggquiver)

之后：

g<-ggplot(data) +
  aes(x = lon, y = lat) +
  geom_contour_fill(aes(z = speed)) +
  geom_quiver(aes(dx = v, dy = u),
                  L = 6,
                  arrow.length = 0.8,
                  arrow.angle = 13,
                  size = 0.6,
                  color = "red") +
  scale_fill_gradient2(low = "green",
                       mid = "blue",
                       high = "black",
                       midpoint = 5) +
  geom_polygon(data = md,
               aes(lon, lat),
               rule = "winding",
               color = "white",
               alpha = 0,
               size = 0.5) +
  coord_cartesian(xlim = c(-10, 5), ylim = c(35, 45)) +
  theme_bw() +
  theme(aspect.ratio = 1,
        panel.grid = element_blank(),
        legend.position = "none")

出现：
Warning messages:
1: Ignoring unknown parameters: L, arrow.length, arrow.angle
2: Ignoring unknown aesthetics: dx, dy

唉，没学会。惭愧

geom_quiver(aes(u = v, v = u),
vecsize = 2.5,
size = 1,
color = "red",
center = T)

谢谢 这回OK了 回去仔细阅读一下 衷心感谢