小编Jis*_*ika的帖子

df<- data.frame(a=c(1:10), b=c(21:30),c=c(1:10), d=c(14:23),e=c(11:20),f=c(-6:-15),g=c(11:20),h=c(-14:-23),i=c(4:13),j=c(1:10))

在这个数据框中，我有三个块对角矩阵，如下图所示

我想应用两个函数，一个是块对角线的正弦函数，第二个是其他元素的余弦函数并生成相同结构的数据框。

sin(df[1:2,1:2])
sin(df[3:5,3:5])
sin(df[6:10,6:10])
cos(the rest of the elements)

例如，我有两个数据集，第一组包含计算点，第二组包含网格坐标。我想使用 ggplot 绘制它们，并且我希望图例如下所示：

数据

df1<- data.frame(lon=c(21:70), lat=c(64:113), tem=c(12:61)) # computation points data
df2<- data.frame(grd.lon=seq(21,70,3.5),grd.lat=seq(12,61, 3.5))  # grid points data
 library(ggplot2)
ggplot()+geom_point(data=df1, aes(x=lon,y=lat), color="black", shape=20, size=3)+
            geom_point(data=df2, aes(x=grd.lon, y=grd.lat), colour="red", shape=3)

我见过类似的问题，但没有一个真正帮助我我也尝试通过添加 scale_color_manual 和 scale_shape_manaul 手动绘制图例，但仍然没有用。请任何帮助