小编Der*_*ran的帖子

问题

大家好，我需要在我的 raspberry pi 3 B 中安装 R 软件（至少 3.5 但希望是 3.6）

我开始做通常的事情：

sudo apt-get update
sudo apt install r-base r-base-dev

哪个有效，但我得到了 R 3.3

然后我尝试了我在这个网页中找到的东西，它可以正常工作：

sudo add-apt-repository 'deb http://cran.dcc.uchile.cl/bin/linux/debian stretch-cran35/'

但我收到以下错误：

Traceback (most recent call last):
  File "/usr/bin/add-apt-repository", line 95, in <module>
sp = SoftwareProperties(options=options)
  File "/usr/lib/python3/dist-packages/softwareproperties/SoftwareProperties.py", line 109, in __init__
self.reload_sourceslist()
  File "/usr/lib/python3/dist-packages/softwareproperties/SoftwareProperties.py", line 599, in reload_sourceslist
    self.distro.get_sources(self.sourceslist)    
  File "/usr/lib/python3/dist-packages/aptsources/distro.py", line 89, in get_sources
(self.id, self.codename))
aptsources.distro.NoDistroTemplateException: Error: could not find a distribution template for Raspbian/stretch

我不确定我做错了什么 …

根据这篇文章，我试图生成一个每次推送时运行的存储库，但也每 4 或 8 小时运行一次。从操作历史记录可以看出，只有其中一个成功，并且仅在 Mac 机器上：

但我的目标是在 ubuntu-latest、windows-latest 和 macos-latest 上运行它，以检查所有操作系统中的代码。最终目标是使计划推送的消息在 xxx 日期更新。这是我于 9 月 23 日编辑的最新代码，可以在这个 repo中看到：

name: render readme

on:
  push:
    paths:
      - README.Rmd
  schedule:
  - cron: 0 */4 * * *

jobs:
  render:
    runs-on: macOS-latest
    steps:
      - uses: actions/checkout@v2
      - uses: r-lib/actions/setup-r@v1
      - uses: r-lib/actions/setup-pandoc@v1
      - name: "[Custom block] [macOS] Install spatial libraries"
        if: runner.os == 'macOS'
        run: |
          # conflicts with gfortran from r-lib/actions when linking gcc …

我正在尝试创建或找到一个计算两点之间的距离和角度的函数，其想法是我可以有两个带有 x、y 坐标的 data.frame，如下所示：

示例数据集

From <- data.frame(x = c(0.5,1, 4, 0), y = c(1.5,1, 1, 0))

To <- data.frame(x =c(3, 0, 5, 1), y =c(3, 0, 6, 1))

当前功能

现在，我已经成功地使用毕达哥拉斯开发了距离部分：

distance <- function(from, to){
  D <- sqrt((abs(from[,1]-to[,1])^2) + (abs(from[,2]-to[,2])^2))
  return(D)
}

效果很好：

distance(from = From, to = To)


[1] 2.915476 1.414214 5.099020 1.414214

但我不知道如何获得角度部分。

到目前为止我尝试过的：

我尝试调整这个问题的第二个解决方案

angle <- function(x,y){
  dot.prod <- x%*%y 
  norm.x <- norm(x,type="2")
  norm.y <- norm(y,type="2")
  theta <- acos(dot.prod / (norm.x * norm.y))
  as.numeric(theta)
}

x …

我正在尝试在 ggplot2 中绘制一个栅格和一个简单的特征，这些图表对我来说比基本图更漂亮。

我遇到的问题是栅格的 NA 值有灰色填充，我希望它们是透明的以具有白色背景和 ggplot2 的网格

这是一个可重现的示例

加载包：

library(sf)
library(raster) 
library(tidyverse)
library(ggspatial)
library(rworldxtra)

获取数据：

data("countriesHigh")
Peru <- countriesHigh %>% st_as_sf() %>% filter(ADMIN.1 == "Peru")
PeruRaster <- getData('alt', country='PER', mask=TRUE)

当我尝试将它们绘制在一起时，我的主要问题是背景（NA 数据）具有灰色填充：

ggplot() + geom_sf(data = Peru) + theme_bw() + layer_spatial(PeruRaster)

关于如何使背景填充透明以便可以看到 ggplot 的网格有什么想法吗？

PS：我也在努力

ggplot() + layer_spatial(PeruRaster) + geom_sf(data = Peru, alpha = 0) + theme_bw() 

现在但是图表需要一段时间

我有两个种群A和B在空间上分布有一个字符Z,我希望能够使一个hexbin减去每个hexbin中字符的比例.在这里,我有两个理论群体A和B的代码

library(hexbin)
library(ggplot2)

set.seed(2)
xA <- rnorm(1000)
set.seed(3)
yA <- rnorm(1000)
set.seed(4)
zA <- sample(c(1, 0), 20, replace = TRUE, prob = c(0.2, 0.8))
hbinA <- hexbin(xA, yA, xbins = 40, IDs = TRUE)

A <- data.frame(x = xA, y = yA, z = zA)

set.seed(5)
xB <- rnorm(1000)
set.seed(6)
yB <- rnorm(1000)
set.seed(7)
zB <- sample(c(1, 0), 20, replace = TRUE, prob = c(0.4, 0.6))
hbinB <- hexbin(xB, yB, xbins = 40, IDs = TRUE)

B <- data.frame(x = …

我正在尝试找到一种方法将我闪亮的应用程序嵌入到网站中。很抱歉，但我想不出一个可重现的例子。这是我想要嵌入 ig 的应用程序之一，它很有用。

https://derek-corcoran.shinyapps.io/WhereShouldYouLive/