小编M--*_*M--的帖子

我的数据框df如下所示：

        Value
X.Y.Z   10
X.Y.K   20
X.Y.W   30
X.Y.Z.1 20
X.Y.K.1 5
X.Y.W.1 30
X.Y.Z.2 3
X.Y.K.2 23
X.Y.W.2 44

我正在尝试使用行名的第三个字符来对列进行命名，例如：

因此，行名现在是行的最后一个字符（在点之后）。我知道这是可能的做dplyr，我试过gather和spread，但没有运气，谁能帮助？

谢谢！

编辑：这是上面文本中的数据，我：

structure(list(..1 = c("X.Y.Z", "X.Y.K", "X.Y.W", "X.Y.Z.1", 
"X.Y.K.1", "X.Y.W.1", "X.Y.Z.2", "X.Y.K.2", "X.Y.W.2"), Value = c(10, 
20, 30, 20, 5, 30, 3, 23, 44)), class = "data.frame", row.names = c(NA, 
-9L))

我有一个包含 48 个工作表的 Excel 文件，我使用以下代码读取多个工作表：

lst <- lapply(1:48, function(i) read_excel("my_file.xlsx", sheet = i))

lst有信息，但我想在 R 中创建单独的数据框。因此，我想创建 48 个表。我该怎么办？

从 R Studio 的ODBC 数据库文档中，我可以看到一个如何将 SQL 表读入 R 数据框架的简单示例：

data <- dbReadTable(con, "flights")

BGBUref让我粘贴我正在尝试读取 R 数据框的表格图形（？）。这是来自我在 R studio 中的连接窗格。

如果我使用与上面相同的语法，con我的输出在哪里dbConnect(...) ，我得到以下内容：

df <- dbReadTable(con, "BGBURef")
#> Error: <SQL> 'SELECT * FROM "BGBURef"' nanodbc/nanodbc.cpp:1587: 42S02: 
#> [Microsoft][ODBC Driver 17 for SQL Server][SQL Server]Invalid object name
#> 'BGBURef'.

我对“表”的理解是否不正确？或者我是否需要执行类似的操作才能访问嵌套BGBUref表：

df <- dbReadTable(con, "QnRStore\dbo\BGBURef")
#> Error: '\d' is an unrecognized escape in character string starting ""QnRStore\d"

如果我单击小电子表格图标，数据BGBUref框将出现在 R Studio 中。就我而言，我只是不知道如何将其放入定义的数据框中df。

这是我运行这些命令时的输出： …

我正在尝试转换我的数据，以便它可以绘制在地图上。例如，数据如下所示：

# A tibble: 2 x 2
  Latitud           Longitud        
  <chr>             <chr>           
1 10º 35' 28.98'' N 3º 41' 33.91'' O
2 10º 35' 12.63'' N 3º 45' 46.22'' O

我正在尝试使用以下方法对其进行变异：

df %>% 
  mutate(
    Latitud = str_replace_all(Latitud, "''", ""),
    lat_edit = sp::char2dms(Latitud), "°")

返回和错误：

Error in if (any(abs(object@deg) > 90)) return("abs(degree) > 90") : 
  missing value where TRUE/FALSE needed
In addition: Warning message:
In asMethod(object) : NAs introduced by coercion

我想在 ggplot （或其他空间包）的地图上绘制这两个点

数据：

structure(list(Latitud = c("40º 25' 25.98'' N", "40º …

I am looking for a readable alternative to plyr::mapvalues in data.table.

例如，在中plyr::mapvalues，如果我想将carbin 的值更改mtcars为type1, type2, type3，则可以执行以下操作：

library(tidyverse)

mtcars %>% 
  mutate(carb = plyr::mapvalues(
    carb,
    from = c("1", "2", "3", "4", "6", "8"),
    to = c("type1", "type1", "type2", "type2", "type3", "type3")))

为了获得相同的效果data.table，我会这样做，但这似乎不是常规方法：

library(data.table)

dt <- data.table(mtcars)
dt$carb <- as.character(dt$carb)

dt[which(carb %in% c("1", "2")), 
   carb := "type1"]

dt[which(carb %in% c("3", "4")), 
   carb := "type2"]

dt[which(carb %in% c("6", "8")), 
   carb := "type3"]

是否可以在一个条件（dt[...] …

我闪亮的应用程序将每 5 分钟从我桌面上的本地文件读取内容，因为文件的内容也每 5 分钟更新一次。我闪亮的应用程序基本上读入了新内容并将数据附加到现有数据框中，并每 5 分钟绘制一次新内容。

问题：最终，我想在网上主持这个。如果我将它托管在 上shinyapps.io，我是否仍然能够读取我桌面中每 5 分钟更新一次的本地文件？如果没有，我该怎么办？

dplyr 中与 top_n() 等效的 Pandas 是什么？

在 R dplyr 0.8.5 中：

> df <- data.frame(x = c(10, 4, 1, 6, 3, 1, 6))
> df %>% top_n(2, wt=x)
   x
1 10
2  6
3  6

正如 dplyr 文档所强调的那样，请注意，我们在这里得到了 2 个以上的值，因为有一个关系：top_n() 要么获取所有带有值的行，要么没有。

我在 Pandas 1.0.1 中的尝试：

df = pd.DataFrame({'x': [10, 4, 1, 6, 3, 1, 6]})
df = df.sort_values('x', ascending=False)
df.groupby('x').head(2)

结果：

    x
0  10
3   6
6   6
1   4
4   3
2   1
5   1

预期成绩：

   x
1 10 …