小编use*_*seR的帖子

我想用R读取在线数据,download.file()如下所示.

URL <- "https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv"
download.file(URL, destfile = "./data/data.csv", method="curl")

有人向我建议我添加该行setInternet2(TRUE),但它仍然无效.

我得到的错误是:

Warning messages:
1: running command 'curl  "https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv"  -o "./data/data.csv"' had status 127 
2: In download.file(URL, destfile = "./data/data.csv", method = "curl",  :
  download had nonzero exit status

感谢您的帮助.

我L在R的踪迹是:

c<-1:10
c
# [1]  1  2  3  4  5  6  7  8  9 10
c[-1]
# [1]  2  3  4  5  6  7  8  9 10
c[-2]
# [1]  1  3  4  5  6  7  8  9 10
c[-1L]
# [1]  2  3  4  5  6  7  8  9 10
c[-2L]
# [1]  1  3  4  5  6  7  8  9 10

我尝试使用?L没有成功.

到底是x[<n>L]什么？任何进一步使用它的例子？

我是R和R Shiny的新手.

对于我现在需要手动输入文件名的代码,我想概括一下这个案例并让用户选择工作目录和相应的文件名.

1,用户选择工作目录然后闪亮能够存储所选工作目录下的所有文件名.相近list.files()

2,然后框列表文件将列出所选wd下的所有文件名,用户可以检查应显示哪个数据集

3,在主面板中,将显示带有标题的数据集的前10个实例

我试过的是

server.R

library(shiny)
setwd("C:/Users/HKGGAIT001/Google Drive/GA Project/Cargo/Cargo.Statistics/data/Hactl")
data1 <- read.csv(list.files()[1])
data2 <- read.csv(list.files()[2])

# Define server logic required to summarize and view the selected
# dataset
shinyServer(function(input, output) {

  # Return the requested dataset
  datasetInput <- reactive({
    switch(input$dataset,
           "data1" = data1,
           "data2" = data2)
  })

  # Generate a summary of the dataset
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # Show the first "n" observations
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  }) …

有什么功能之间的差异ls()和objects()？

我尝试了以下代码,他们给出了相同的结果

a <- 1:10
b <- letters
c <- month.abb

结果:

> ls()
[1] "a" "b" "c"
> objects()
[1] "a" "b" "c"

基于之前的带有散点图叠加的ggplot箱图(相同的变量),

我希望每周的每一天都有一个箱形图而不是两个箱形图,同时在它上面有不同颜色的散点图.

代码如下:

#Box-plot for day of week effect
plot1<-ggplot(data=dodgers, aes(x=ordered_day_of_week, y=Attend)) + geom_boxplot()

#Scatter with specific colors for day of week
plot2<-ggplot(dodgers, aes(x=ordered_month, y=Attend, colour=Bobblehead, size=1.5)) + geom_point()

#Box-ploy with Scatter plot overlay
plot3<-ggplot(data=dodgers, aes(x=ordered_day_of_week, y=Attend, colour=Bobblehead)) + geom_boxplot() + geom_point()

结果将是:
1,散点图

2,boxplot情节

3,合并情节

我想在每小时更新预测时获取天文台数据.

我的一次数据提取代码如下.

library(RCurl)
web <- getURL("http://www.hko.gov.hk/contente.htm")
web <- unlist(strsplit(web, "\r\n"))
head(web)

temp <- unlist(strsplit(web[1245], "</span>"))
MINtemp <- vector()
MAXtemp <- vector()
for (i in 1:9){
    mintemp <- substr(temp[2*i-1], 
              nchar(temp[2*i-1])-1, 
              nchar(temp[2*i-1]))
    mintemp <- as.numeric(mintemp)
    MINtemp <- append(MINtemp, mintemp)

    maxtemp <- substr(temp[2*i], 
              nchar(temp[2*i])-1, 
              nchar(temp[2*i]))
    maxtemp <- as.numeric(maxtemp)
    MAXtemp <- append(MAXtemp, maxtemp)
}

status <- strsplit(
             substring(web[1242],12),
        "</a></td><td align")
status <- substring(unlist(status), 178)
weather <- vector()
for (i in 1:9){
    status[i] <- unlist(strsplit(status[i], "width"))[1]
    weather <- append(weather, 
                substr(status[i], 
                     1,
                     nchar(status[i])-3
                     )
                )
} …

我有一个名为dataset1.csv的csv文件,它包含3个变量att1(字符),att2和att3(数字数据)的标题.

我试过以下代码

filename test 'C:\Users\1502911\Desktop\Practice\SAS\Dataset';

data dataset1;
    infile test(dataset1.csv) dsd delimiter=',';
    input att1 $ att2 att3;
run;

我想要的输出是忽略第一行

我是Python 新手,目前正在阅读Python 3的绝对初学者和面对以下问题.

我想用程序计算阶乘.

1. 请求用户输入非负数n
2. 然后使用for循环来计算阶乘

而代码是这样的:

N = input("Please input factorial you would like to calculate: ")
ans = 1
for i in range(1,N+1,1):
    ans = ans*i
print(ans)

而我想添加一项功能来检查输入数字N是否为非负数.喜欢:

if N != int(N) and N < 0:

我希望用户再次输入N,如果它不是非负数.

谢谢你的温柔帮助.

我知道,有选择skip的read.csv()

我知道如何跳过前10行,如下所示:

data2<-read.csv("book4.csv", skip=10, header=T)

跳过最后10行怎么样？

我的方法是

data2 <- data2[1:(dim(data2)[1]-10),]

还有其他方法吗？

谢谢

?sort声明partial参数可以是NULL或部分排序的索引向量.

我试过了:

x <- c(1,3,5,2,4,6,7,9,8,10)
sort(x)
## [1]  1  2  3  4  5  6  7  8  9 10
sort(x, partial=5)
## [1]  1  3  4  2  5  6  7  9  8 10
sort(x, partial=2)
## [1]  1  2  5  3  4  6  7  9  8 10
sort(x, partial=4)
## [1]  1  2  3  4  5  6  7  9  8 10

我不确定partial排序向量时的意义.