小编Ami*_*hli的帖子

我想要一张图表,作为一年中某一天的函数,在x和y轴上从0 - > 100%前进(其中每个轴是一个单独的度量).根据数据相对于一年中的哪一天,我想表明这是好还是坏.很简单,我可以这样显示:

所以上面的情节显示我们处于良好的状态,因为"小费"(最黑暗的最大点)超过了50%的标记(假设我们全年都是50%).但我想在水平线和垂直线周围添加渐变线以显示更多细微差别.这是对区域的解释(第一张图是解释......第二张图是我想在ggplot中显示的方式......区域完全填满.

这是我在ggplot中走了多远:

我遇到的问题:

1. 由于某种原因,垂直渐变不接受alpha参数
2. 我不能分配两个不同的渐变,一旦我定义了渐变,它就适用于垂直和水平渐变.
3. 这看起来很可怕.我应该遵循更好的方法吗？

问题1-2是否可以解决？如果有人有更好的方法不使用geom_line,请随时建议方法.

编辑:当线条移动时,渐变也会移动,因此静态背景在这里不起作用.

代码如下:

dff <- data.frame(x = 1:60+(runif(n = 60,-2,2)),
                  y = 1:60+(runif(n = 60,-2,2)),
                  z = 1:60)

dfgrad <- data.frame(static = c(rep(50,1000)), line = seq(0,100,length.out=100))

## To see the gradientlines thinner, change the size on the geom_line  to like 200

ggplot(dff,aes(x,y)) +
  geom_line(data = dfgrad, aes(x=static, y=line, color=line),size=1000,alpha=0.5) +
  geom_line(data = dfgrad, aes(x=line, y=static, color=line),size=1000,alpha=0.5) +
  scale_colour_gradientn( colours = c( "yellow", "darkgreen","darkred"),
                          breaks  = c( 0, 3, …

在 Excel VBA 中：

我正在创建一个表格。该表单有多个单选按钮组，其中一些有多个选项（但每组只能有一个单选按钮）。我希望能够获取每个组“true”的单选按钮的名称，而不必检查每个单选按钮的条件。

例如：

家庭A

• 选项1-F
• 选项2-T

家庭B

• 选项 11 - F
• 选项12-F
• 选项 13 - F
• 选项 14 - F
• 选项 15 - T

我必须做什么：

• 选项1正确吗？
• 选项2正确吗？（是的...所以A家庭的选项2）
• 选项11正确吗？
• 选项12正确吗？
• 选项13正确吗？
• 选项14正确吗？
• 选项15正确吗？（是的...所以 B 族的选项 15）

我想做的：

• 对于家庭 A 来说，哪个按钮是正确的？（选项2）
• 对于 B 族来说，哪个按钮是正确的？（选项15）

这可能吗？

感谢您的关注！

编辑： 解决方案！根据大卫的以下建议：

Dim ctrl As MSForms.Control
Dim dict(5, 1)
Dim i

'## Iterate the controls, and associates the GroupName to the Button.Name that's true.

For Each ctrl In Me.Controls
    If TypeName(ctrl) …

这个问题之前已经被问过，但由于没有reprex而没有得到答案，所以让我试一下。

假设我有两个跨越不同日期范围的数据集。我想使用滑块控制每个的可视化。以下 reprex 将直接在下面创建视觉效果。

---
title: "Untitled"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

#+ message = FALSE, warning = FALSE
library(plotly)
library(crosstalk)
library(dplyr)
#+
```

```{r}
df1 <- data.frame(d = seq.Date(from = as.Date("2020-01-01"), by = "months", length.out = 100), v = runif(100))
df2 <- data.frame(d = seq.Date(from = as.Date("2020-6-01"), by = "months", length.out = 20), other_v = runif(20))

both_df <- full_join(df1, df2, by = 'd')

both_df_sh <- both_df %>% SharedData$new(group = "boom")

selector <- filter_slider(id …

抱歉没有问题,我在Ubuntu吮吸.

我刚刚在Ubuntu服务器上安装了nginx:

sudo apt-get update
sudo apt-get -y install nginx

它成功建成.我正在尝试更改索引页面,所以我修改了我的/usr/share/nginx/html/index.html,然后尝试了所有这些:

sudo service nginx stop
sudo service nginx start
sudo service nginx restart

但是当我在浏览器上刷新根页面时,它仍会显示旧页面.

这就是index.html的样子:

我检查了我的/etc/nginx/nginx.conf,但没有找到任何特别的东西.

我能错过什么？

在我有 2 个图例（一个用于形状，一个用于颜色）的情节中，我的老板发现颜色图例已经选择了其中一种形状令人困惑。一个例子：

a <- data.frame(name = c("A","B","C","D"),
                type = c("dog","dog", "cat", "cat"),
                location = c("house", "house", "house", "garden"),
                count = c(3,1,5,8))

ggplot(a, aes(x=name, y=count, color=location, shape=type)) +
  geom_point(size=7)

产生以下内容：

在此示例中，“位置”图例通过显示彩色圆圈来解释颜色（但圆圈也表示猫，这显然令人困惑）。如何强制“位置”图例仅显示颜色，而不是形状？也许将位置显示为红色和蓝色矩形会比较理想。

我刚注意到一个奇怪而有趣的错误:

as.numeric((Sys.Date()-30)-Sys.Date())
#[1] -30

哪个是对的.但:

library(dplyr)
(Sys.Date()-30)-Sys.Date() %>% as.numeric()
#[1] "1969-12-02"

如果%>%简单地将输出提供给第一个参数槽,那么这种行为肯定不正确吗？

所以根据输入定义purrr::map,.f参数可以是:

[...]如果是字符或整数向量,例如"y",则将其转换为提取函数,函数(x)x [["y"]].要深入索引到嵌套列表,请使用多个值; c("x","y")等效于z [["x"]] [["y"]].您还可以设置.null为默认组件设置默认值而不是NULL.

所以应该可以传递一个VECTOR字符作为.f调用.但我无法弄明白该怎么做!很明显,如果我c('x','y')不能工作,因为该功能假定我正在向下钻取.那怎么办呢？一些代表:

library(purrr)
a <- mtcars %>%
  split(.$cyl) %>% # from base R
  map(~ lm(mpg ~ wt, data = .)) %>%
  map(summary) 

## Works
a %>% map_dbl("r.squared")
#>         4         6         8 
#> 0.5086326 0.4645102 0.4229655

## Also works
a %>%  map_dbl("sigma")
#>        4        6        8 
#> 3.332283 1.165202 2.024091

## But how to get both at once?
a %>%  map("r.squared","sigma")
#> $`4`
#> [1] 0.5086326
#> 
#> …

Overpass API 语言指南确实允许在匹配标签值时使用逻辑运算符...例如：["name"~"holtorf|Gielgen"]将返回 name=holtorf 或 name=Gielgen 的任何对象。

您还可以组合条件，它们将成为 AND...例如：

["name"]["name"="holtorf"]。意味着搜索具有标签“name”并且标签名称等于“holtorf”的事物。

但我想要的是一个 OR 运算符...类似：

["name"="holtorf"]|["name:eng"holtorf"]

在我的特定应用程序中，我只想知道是否有任何以“name”开头的标签...所以我想做的就是将其放入 API 中：（["^name"]因为在此 API 中“^”表示“以”）。但当然它搜索文字“^name”并没有返回任何内容。

有一些解决方法吗？

所以,我在意大利,在R中的imdb上玩"最佳电影"奥斯卡列表.运行此代码:

library(XML)
fileUrl <- "http://www.imdb.com/search/title?           
count=100&groups=oscar_best_picture_winners&sort=year%2Cdesc&ref_=nv_ch_osc_3"
doc <- htmlTreeParse(fileUrl,useInternal=TRUE)
scores <- xpathSApply(doc,"//td[@class='title']",xmlValue)
head(scores,2)

产生以下输出:

[1] "\n    \n\n\n\n    12 anni schiavo\n    (2013)\n\n\n\n \n \n\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n\n8.2/10\nX\n \n\n\nIn the antebellum United States, Solomon Northup, a free black man from upstate New York, is abducted and sold into slavery.\n\n    Dir: Steve McQueen\n    With: Chiwetel Ejiofor, Michael K. Williams, Michael Fassbender\n\n    Biography | Drama | History\n    \n    134 mins.\n"                                                       
[2] "\n    \n\n\n\n    Argo\n    (2012)\n\n\n\n \n \n\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n\n7.8/10\nX\n \n\n\nActing under the cover of a Hollywood producer scouting a …