在控制台中运行这些命令,输出为:
> cty0 = ggplot2::map_data("county")
> library(tidyverse)
Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages -----------------------------------------------------------------------------------------------
filter(): dplyr, stats
lag(): dplyr, stats
map(): purrr, maps
> cty0 = ggplot2::map_data("county")
Error: ggplot2 doesn't know how to deal with data of class list
我可以调用,map_data("county")直到tidyverse加载,然后失败.如何加载县地图数据tidyverse？
我正在做一个pandas DataFrame,我想保留第一行,但它一直转换为列名称,我试过,pd.read_csv但这只是完全删除它.
我有一个string(header=False),我转换为类似文件的对象(st = '\n'.join(lst)),然后io.StringIO(st)从该文件对象构建.
我正在寻找的text_是:本周(3月25日 - 3月31日),国内油厂开机率继续下降,全国各地油厂大豆压榨总量1456000吨(出粕1157520吨,出油262080吨) ,较上周的... [续]
crush <- str_extract(string = text_, pattern = perl("(?<=?).*(?=????)"))
meal <- str_extract(string = text_, pattern = perl("(?<=?).*(?=???)"))
oil <- str_extract(string = text_, pattern = perl("(?<=??).*(?=??)"))
版画
[1] "1456000" ## correct
[1] "1157520" ## correct
[1] NA ## looking for 262080 here
为什么前两个匹配但不是最后一个匹配？我正在使用stringr图书馆.
对于较小的数字，它们似乎是相等的，但对于较大的数字，它们似乎不同。
例如：
a = int(1267650600228229401496703205376/10)
b = 1267650600228229401496703205376 // 10
print(a - b) # prints 7036874417767
a = int(1493845793475/10)
b = 1493845793475 // 10
print(a - b) # prints 0
怎么会？
我想在 shell 中一行映射一个驱动器
我试过：
net use W: \\network\drive
不过我得到了回应
W: has a remembered connection to \\network\drive. Do you want to overwrite the remembered connection? (Y/N) [Y]:
（但是，如果我尝试运行，W:我会得到The system cannot find the drive specified.
我也尝试过
net use W: \\network\drive & echo Y
但同样的反应。
如何发送Y并按 ENTER 键以完成驱动器映射？
我正试图从"关键统计"页面获取雅虎中的股票代码(因为Pandas库不支持).
AAPL示例:
from bs4 import BeautifulSoup
import requests
url = 'http://finance.yahoo.com/quote/AAPL/key-statistics?p=AAPL'
page = requests.get(url)
soup = BeautifulSoup(page.text, 'lxml')
enterpriseValue = soup.findAll('$ENTERPRISE_VALUE', attrs={'class': 'yfnc_tablehead1'}) #HTML tag for where enterprise value is located
print(enterpriseValue)
编辑:谢谢安迪!
问题:这是打印一个空数组.如何更改我findAll的返回598.56B？
我将其保存为 RStudio 中的脚本：
\n\na <- "\xe4\xb8\xad\xe6\x96\x87"\nprint(a)\n当我运行它时，我收到此错误：
\n\nError in source("C:/Users/Rafael/Desktop/test.R", encoding = "UTF-8", : \n C:/Users/Rafael/Desktop/test.R:21:6: unexpected INCOMPLETE_STRING\n20: \n21: a <- "\n ^\nIn addition: Warning message:\nIn readLines(file, warn = FALSE) :\n invalid input found on input connection \'C:/Users/Rafael/Desktop/test.R\'\n这是会话信息（）：
\n\nR version 3.3.3 (2017-03-06)\nPlatform: x86_64-w64-mingw32/x64 (64-bit)\nRunning under: Windows 7 x64 (build 7601) Service Pack 1\n\nlocale:\n[1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252 \n[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C \n[5] LC_TIME=English_United States.1252 \n\nattached base packages:\n[1] stats graphics grDevices utils datasets methods base …我很困惑如何...工作.
tt = function(...) {
return(x)
}
为什么不tt(x = 2)回来2？
相反,它失败并出现错误:
tt(x = 2)出错:找不到对象'x'
即使我x作为论点传递？
与此问题类似：正则表达式：在列表中搜索
但我想返回搜索列表的大小相同的列表，None或''在没有比赛：
import re
mylist = ["dog", "cat", "wildcat", "thundercat", "cow", "hooo"]
r = re.compile(".*cat")
list(filter(r.match, mylist))
# looking for ["", "cat", "wildcat", "thundercat", "", ""]
我尝试删除filter但返回整个列表
也试过
[r.match(x) for x in mylist]
但这会返回：
[None,
<regex.Match object; span=(0, 3), match='cat'>,
<regex.Match object; span=(0, 7), match='wildcat'>,
<regex.Match object; span=(0, 10), match='thundercat'>,
None,
None]
我不知道如何提取字符串
.group(0) 引发错误 None
任何一种方法都有效，优先选择更快/更有效的方法，因为列表会很长
我想pip uninstall airflow和pip3 uninstall airflow和回报都
无法卸载要求气流，未安装
我想完全去除气流并运行全新安装。
我有两个data.frames,我想合并在一起.首先是:
datess <- seq(as.Date('2005-01-01'), as.Date('2009-12-31'), 'days')
sample<- data.frame(matrix(ncol = 3, nrow = length(datess)))
colnames(sample) <- c('Date', 'y', 'Z')
sample$Date <- datess
第二:
a <- data.frame(matrix(ncol = 3, nrow = 5))
colnames(a) <- c('a', 'y', 'Z')
a$Z <- c(1, 3, 4, 5, 2)
a$a <- c(2005, 2006, 2007, 2008, 2009)
a$y <- c('abc', 'def', 'ijk', 'xyz', 'thanks')
我希望合并后的那一年匹配年份,然后填写当年每一天的其余值.
Date y Z
2005-01-01 abc 1
2005-01-02 abc 1
2005-01-03 abc 1
{cont}
2009-12-31 thanks 2
我有一个data.table，我想在其中填写一栏以填写一些缺失的值，但是在填写其他栏时遇到了一些麻烦。
dt = data.table(a = c(1, 3, 5), b = c('a', 'b', 'c'))
dt[, .(a = seq(min(a), max(a), 1), b = na.locf(b))]
# a b
# 1: 1 a
# 2: 2 b
# 3: 3 c
# 4: 4 a
# 5: 5 b
但是正在寻找更像这样的东西：
dt %>%
complete(a = seq(min(a), max(a), 1)) %>%
mutate(b = na.locf(b))
# # A tibble: 5 x 2
# a b
# <dbl> <chr>
# 1 1 a
# 2 2 a
# 3 …有什么我可以替代:
Set Rng = Sheets("Annual SnD Raw Data").Range("J2:J89500")
为了Rng成为J2列中最后使用过的单元格的范围J？
我试过了:
Sheets("Annual SnD Raw Data").Range(Cells(2, 10), Cells(2, Application.WorksheetFunction.CountA("J:J")))
但它没有设定正确的范围.