小编AWa*_*ton的帖子

我们最近为我们的域名实施了DMARC记录:

"v = DMARC1; p =隔离; pct = 100; rua = mailto:me@mydomain.com"

(隔离100%未经过身份验证的电子邮件并将汇总报告发送给"我")

我们使用第三方供应商发出邀请.供应商从invites@invites.vendordomain.com发送电子邮件,然后通过邮件中继"smtp3.mailrelaydomain.it"发送.我也知道邮件中继使用单个IP地址.

该地址包含在我们的SPF记录中:

"v = spf1 ... [其他邮件服务器的SNIP参考SNIP] ... ip4:[邮件中继的IP地址]〜所有"

当我使用供应商的服务发送邀请时,邮件将被隔离.

当我查看聚合DMARC报告时,我看到邀请:

• 被识别为来自SPF授权服务器
• 为发件人的域传递原始SPF身份验证(invites@invites.vendordomain.com")
• 为邮件中继域传递原始DKIM身份验证(smtp3.mailrelaydomain.it)
• 对于mydomain,DKIM和SPF的DMARC身份验证失败

以下是邀请的示例标题.

开始采样电子邮件标题

Delivered-To: someone@mydomain.com
Received: by 10.64.252.9 with SMTP id zo9csp100581iec;
        Wed, 21 Oct 2015 11:40:13 -0700 (PDT)
X-Received: by 10.55.195.147 with SMTP id r19mr12995508qkl.12.1445452813709;
        Wed, 21 Oct 2015 11:40:13 -0700 (PDT)
Return-Path: <invites@invites.vendordomain.com>
Received: from smtp3.mailrelaydomain.it (smtp3.mailrelaydomain.it. [ip for mail relay])
        by mx.google.com with ESMTP id w15si9297939qha.131.2015.10.21.11.40.13
        for <someone@mydomain.com>;
        Wed, 21 …

我正在使用 OSM 数据来创建矢量街道地图。对于道路，我使用 OSM 提供的线几何图形，并添加缓冲区以将线转换为看起来像道路的几何图形。

我的问题与几何相关，而不是 OSM，因此为了简单起见，我将使用基本线条。

library(dplyr)
library(ggplot2)
library(sf)

# two lines representing an intersection of roads
l1 <- st_as_sfc(c("LINESTRING(0 0,0 5)","LINESTRING(-5 3,5 3)"))

# union the two lines (so they "intersect" instead of overlap once buffered
l2 <- l1 %>% st_union()

ggplot()+
  geom_sf(data = st_buffer(l2, dist = 0.75))

这将产生如下结果：

最终，我尝试以类似于 Google、OSM、Bing 等地图 API 的方式渲染道路。这些内角圆角如下所示：

我已经搜索了 sf 包中的 st_ 系列方法，但没有找到解决方案。我发现的最接近的是st_buffer 的一些参数，它们控制端盖的形状和用于外角（但不是内角）的角度数量。

有没有一个简单/实用的解决方案，或者我最好习惯非圆形交叉路口？

谢谢

更新：

Lovalery 和 mrhellmann 提出了以下两种解决方案。

最终，我选择了 Mrhellmann 的回答，因为它符合我的特殊需求；然而，我确实比较并探索了下面分享的每一种的优点。我将这个讨论留在这里，因为其他人的用例可能略有不同，并且这些差异对于理解很有用。

让我们定义使用的不同方法：

l1 <- st_as_sfc(c("LINESTRING(0 0,0 5)","LINESTRING(-5 …

我希望在 中创建一个空间邻接矩阵R，最好使用 ggplot/tidyverse 与其他脚本保持一致，但我对其他解决方案持开放态度。

这就是我正在寻找的东西。

空间邻接矩阵用于室内和建筑设计中，以说明建筑物内空间之间的关系（邻接）。

建筑物中的每个空间都与其他空间有关系（或缺乏关系）。

输入数据的格式可能与此类似：

rel.ABCD <- data.frame(
  id = c(1,2,3,4,5,6),
  x1 = c("A","A","A","B","B","C"),
  x2 = c("B","C","D","C","D","D"),
  relation = c(1,2,1,3,2,1)
)

rel.ABCD
#>   id x1 x2 relation
#> 1  1  A  B        1
#> 2  2  A  C        2
#> 3  3  A  D        1
#> 4  4  B  C        3
#> 5  5  B  D        2
#> 6  6  C  D        1

^{由reprex 包于 2022 年 4 月 11 日创建(v2.0.1)}

上例中存在四个空间（A、B、C 和 …

客观的

我希望在表格中添加副标题和小计/边距行。最终，我正在寻找如下所示的结构，我将使用openxlsx和将其导出到 Excel writeData。

我怀疑小标题和小计是完全不同的问题，但我在这里问这两个问题，以防有一个与每个问题相关的通用方法。

到目前为止可复制的代码

创建示例数据（长格式）：

d <- data.frame(
  year = rep(c(2019, 2020, 2021), times = 9), …