小编Dam*_*mbo的帖子

我在一个闪亮的应用程序中有一些googleVis图表,但是当它们太长时,googleVis会默认缩短水平轴上的标签.我该如何防止这种行为？下面的示例复制了我想要阻止的行为:

df=data.frame(country=c(paste(rep("very very long label", 1e+2)), "GB", "BR"), 
              val1=c(10,13,14), 
              val2=c(23,12,32))
Line <- gvisLineChart(df)
plot(Line)

这里是文档的链接

我想用来html_nodes从谷歌搜索结果中抓取组织的名称（我只需要第一个元素，假设这将是最好的猜测）。现在，我正在尝试使用其 xpath 定位第一个结果，并将其传递给 function html_nodes。为了找到 xpath，我使用 google chrome，如下图所示

这给了我//*[@id="rso"]/div[1]/div/div[1]/div/div/h3/a第一个结果标题的 xpath。但是，当我尝试将其传递给我时，html_nodes()我得到一个空字符串：

page %>% html_nodes(xpath='//*[@id="rso"]/div[1]/div/div[1]/div/div/h3/a')
{xml_nodeset (0)}

虽然我期望字符串The A-Test 2017 Workshop.

如何a使用 xpath 或 css 获取该标签的内容？

我正在尝试将 RMarkdown 中代码块的语法呈现为 pdf。最终输出应如下所示

```{r}
#some code
```

而不仅仅是

#some code

我正在编织 pdfkable()用来绘制一些表格。我在功能上创建了一些表，因此其中一些最终会在页面之间拆分。有什么办法可以防止这种行为吗？

我知道我可以在每张桌子后移动到一个新页面，但我更愿意在同一页面上有多个 kables。

我有以下小标题

    tribble(
  ~func, ~models, ~data,
  'lm'  ,  formula = mpg ~ disp, mtcars,
  'lm'  ,  formula = mpg ~ disp, filter(mtcars, carb < 4)
)

现在我想在数据集上拟合func用公式指定的模型类型。我试图这样使用，但它不起作用：modelsdatainvoke

   tribble(
  ~func, ~models, ~data,
  'lm'  ,  formula = mpg ~ disp, mtcars,
  'lm'  ,  formula = mpg ~ disp, filter(mtcars, carb < 4)
)%>% invoke_map(func, list(models, data))

我想将一个不带引号的变量名传递x给一个left_join函数。我期望的输出与我运行的输出相同：

left_join(mtcars, mtcars, by = c('mpg' = 'mpg'))

我正在尝试这个：

 ff <- function(x) {
      x <- enquo(x)
      left_join(mtcars, mtcars, by = c(x = x))
    }
    ff(mpg)

匹配错误（x，表，nomatch = 0L）：“匹配”需要向量参数

有没有办法来改变alpha用geom_sf？此示例来自 中的示例?geom_sf。我尝试添加alpha=.2但它似乎忽略了这种美学，尽管它alpha是geom_line. 它不会忽略fill- 在这个例子中的alpha NA。

library(sf)
#> Linking to GEOS 3.6.1, GDAL 2.1.3, proj.4 4.9.3
library(ggplot2)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
nc_3857 <- sf::st_transform(nc, "+init=epsg:3857")

ggplot() + geom_sf(data = nc) + 
  geom_sf(data = nc_3857, colour = "red", fill = NA, alpha = 0.2)

假设我有以下数据帧:

library(tidyverse)
fit <- lm(speed ~ dist, data = cars)
select(broom::augment(fit), .fitted:.std.resid) -> dt
names(dt) <- substring(names(dt), 2)

我想创建一个残差图的网格使用purrr.例如,到目前为止,我有2个诊断图的公式:

    residual <- function(model) {ggplot(model, aes(fitted, resid)) +
                                  geom_point() +
                                  geom_hline(yintercept = 0) +
                                  geom_smooth(se = FALSE)}

stdResidual <- function(model) {ggplot(model, aes(fitted, std.resid)) +
                                    geom_point() +
                                    geom_hline(yintercept = 0) +
                                    geom_smooth(se = FALSE)}

我将公式存储在我计划针对强化数据集运行的列表中dt.

formulas <- tibble(charts = list(residual, stdResidual))
# A tibble: 2 x 1
  charts
  <list>
1  <fun>
2  <fun>

现在我需要传递dt给列chart中的每个元素formulas …

我不知道如何使用AES angle在geom_label。我以为下面的代码会将标签旋转了45，但事实并非如此。

library(ggplot2)
ggplot(data = mtcars[1:4,]) +
  geom_label(aes(x = mpg, y = qsec, label=disp), angle = 45)

我有一个小标题：

tibble(a = c('first', 'second'), 
       b = list(c('colA' = 1, 'colC' = 2), c('colA'= 3, 'colB'=2))) 

# A tibble: 2 x 2
  a      b        
  <chr>  <list>   
1 first  <dbl [2]>
2 second <dbl [2]>

一个要变成这种形式的：

# A tibble: 2 x 4
  a       colA  colB  colC
  <chr>  <dbl> <dbl> <dbl>
1 first     1.   NA     2.
2 second    3.    2.   NA 

我尝试使用unnest()，但是在从嵌套值中保留元素名称时遇到了问题。