小编Dou*_*Fir的帖子

我有一个具有这种格式类的输入字段：

some_starting_constant_string somevariablestring some_ending_constant_string

所以我想要一个查询选择器，它使用开头和结尾的组合：

document.querySelectorAll("input[class^='some_starting_constant_string' AND class$='some_ending_constant_string']

这可能吗？结合规则开始和结束？

这是一个条形图：

ggplot(mtcars) +
  geom_bar(aes(x = reorder(factor(cyl), mpg), y = mpg), stat="identity") +
  coord_flip()

应该产生这个：

我想在最后添加标签，显示每个条形中 mpg 的总值。例如，仅从眼球上看，4cyl 就在 290 左右。我想为条形添加一个显示确切数字的标签。

我想尝试一下，看看它们的外观，所以为了完整性：

• 在酒吧的顶部里面
• 在顶部的酒吧外面
• 奖励是我能够控制标签是垂直还是水平显示。

我找到了这篇SO 帖子，但一直在努力复制所选的答案。这是我的尝试：

ggplot(mtcars) +
  geom_bar(aes(x = reorder(factor(cyl), mpg), y = mpg), stat="identity") +
  coord_flip() +
  geom_text(aes(label = mpg))

这给出了一个错误：

错误：geom_text 需要以下缺失的美学：x, y

如何在条形末端添加标签？

这是一个条形图：

ggplot(filtered_funnel, aes(x = reorder(Funnel, -Sessions), y = Sessions)) +
      geom_bar(stat = "identity", fill = "#008080", alpha = 0.6) +
      xlab("Step") +
      ylab("Events") +
      scale_y_continuous(labels = function(l) {l = l / 1000; paste0(l, "K")}) +
      geom_text(aes(label = Sessions, group = Channel), color = "white")

看起来像这样（注意文本标签为白色）：

这是因为数据df filtered_funnel实际上是由“通道”字段拆分的。我需要该条基于例如会话的分组总和，而不是基于每个通道的会话。

这是源数据的一瞥：

> glimpse(filtered_funnel)
Observations: 108
Variables: 4
$ Channel  <chr> "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", "Direct", ...
$ Promo    <chr> "apples", "apples", "apples", "banannas", "banannas", "banannas", …

我有一个带有标签的geom_bar图，用于视觉上每个条的值。

这是生成绘图的代码：

# libraries
library(shiny)
library(tidyverse)

# funnel bar blot
  output$funnel_plot <- renderPlot({
    ggplot(exampledf, aes(x = reorder(Funnel, -Sessions), y = Sessions)) +
      geom_bar(stat = "identity", fill = "#008080", alpha = 0.6) +
      stat_summary(aes(label = scales::comma(..y..)), fun.y = 'sum', geom = 'text', col = 'white', vjust = 1.5) +
      xlab("Step") +
      ylab("Events") +
      scale_y_continuous(labels = function(l) {l = l / 1000; paste0(l, "K")})
  })

这是一个要馈入其中的数据帧。

exampledf <- structure(list(Channel = c("Facebook", "Youtube", "SEM", "Organic", 
"Direct", "Email", "Facebook", "Youtube", "SEM", "Organic", "Direct", 
"Email", …

我正在使用插入符号拟合模型，但我缺少一些数据。我记得在传递参数以训练“preProcess =”medianImpute”之前有一次，但是我收到了一个意外错误：

library(caret)
x <- mtcars
x[1:5, "cyl"] <- c(NA, NA, NA, NA, NA)

mod.mt <- train(
  mpg ~.,
  method = "rpart", # decision tree
  tuneLength = 3,
  preProcess = "medianImpute",
  data = x)

给出：

Error in na.fail.default(list(mpg = c(21, 21, 22.8, 21.4, 18.7, 18.1,  : 
  missing values in object

因为我正在使用 preProcess 我以为我是在告诉 caret 对任何缺失值使用中值插补。所以这个错误是出乎意料的？

我想用空格替换数据帧功能名称中的所有下划线:

library(tidyverse)
names <- c("a_nice_day", "quick_brown_fox", "blah_ha_ha")
example_df <- data.frame(
  x = 1:3,
  y = LETTERS[1:3],
  z = 4:6
)
names(example_df) <- names

尝试:

example_df %>% rename_all(replace = c("_" = " "))
Error: `.funs` must specify a renaming function

还尝试过:

example_df %>% rename_all(funs(replace = c("_" = " ")))
Error: `nm` must be `NULL` or a character vector the same length as `x`

如何用空格替换要素名称中的所有下划线？

我有一个对象“ ecom”，它将具有以下属性之一 ['detail','add','remove','checkout','purchase']

我想知道对象具有5个潜在属性中的哪个。

最简单，最干净的方法是什么？

当我在 vim 中打开一个扩展名为 .sql 的文件时，我会得到与 sql 相关的方便的语法突出显示。

但是，当我打开一个扩展名为 .hive 的文件时，文本都只是一种颜色。

是否可以告诉 vim 将 .hive 扩展名视为与 .sql 相同？

我正在尝试遵循有关使用 Python 提取 Google Analytics 数据的教程。

按照整个教程中的步骤进行操作后，当我调用脚本时，我在标题中收到错误消息：

from apiclient.discovery import build
from oauth2client.service_account import ServiceAccountCredential

回溯（最近一次调用最后一次）：文件“ga.py”，第 4 行，来自 oauth2client.service_account import ServiceAccountCredentials ImportError：无法从“oauth2client.service_account”导入名称“ServiceAccountCredentials”

经过一番谷歌搜索后，我正在阅读这篇文章。

我尝试更改我的包版本：

pip install oauth2client==1.5.2

我尝试根据该帖子的答案添加新包：

pip install pyopenssl
pip install pycrypto
pip install httplib2
pip install oauth2client
pip install ssl

在每种情况下，我在尝试运行后都遇到相同的消息ga.py：

（zen_ga）Macs-MacBook：zen_ga macuser$ python ga.py Traceback（最近一次调用最后）：文件“ga.py”，第4行，来自oauth2client.service_account导入ServiceAccountCredentials ImportError：无法从“oauth2client”导入名称“ServiceAccountCredentials” .service_account'

我如何ServiceAccountCredentials从导入oauth2client.service_account？

我一直在阅读这篇关于如何使用 dplyr 中变量的字符串引用的文章。

我想根据字符串输入改变现有列：

var <- 'vs'
my_mtcars <- mtcars %>% 
  mutate(get(var) = factor(get(var)))

错误：意外的“=”：“my_mtcars <- mtcars %>% mutate(get(var) ="

还尝试过：

my_mtcars <- mtcars %>% 
  mutate(!! rlang::sym(var) = factor(!! rlang::symget(var)))

这导致了完全相同的错误消息。

如何根据在 var 变量中传递字符串“vs”进行变异来执行以下操作？

# works
my_mtcars <- mtcars %>% 
  mutate(vs = factor(vs))