小编ben*_*n23的帖子

我对 RestClient 响应返回有疑问

“StatusCode: 0，Content-Type: , Content-Length: )”，ErrorMessage 为“由于配置的 HttpClient.Timeout 已过 100 秒，请求被取消”。

• 这是 url 末端的超时还是我的 httpclient 的超时？
• request.timeout 正确吗？

尽管只有 170KB 的数据，但由于其最终优化不佳，该请求可能需要 5 分钟以上的时间。

var client = new RestClient(url);

RestRequest request = new RestRequest() { Method = Method.Get };

request.Timeout = 300000;

request.AddParameter("access_token", AccessToken);
request.AddParameter("start_date", StartDate.ToString("yyyy-MM-dd"));
request.AddParameter("end_date", EndDate.ToString("yyyy-MM-dd"));
request.AddParameter("offset", offset.ToString());

var response = await client.ExecuteAsync(request);
var responseWorkLoads = JObject.Parse(response.Content).SelectToken("worklogs");

这是我的文件结构和requirements.txt：

得到ModuleNotFoundError，任何帮助将不胜感激。

主要.py

from fastapi import FastAPI
from .import models
from .database import engine
from .routers import ratings


models.Base.metadata.create_all(bind=engine)


app = FastAPI()


app.include_router(ratings.router)

我正在尝试使用 pheatmap 包制作一个图形。我想按我正在使用的注释对数据进行分组，但它不会分组在一起。

我的数据在这里：

sub_samp <- structure(c(1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 
0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, …

我正在尝试在函数内使用数据框的名称创建一个新列。

这是我的代码：

df1 <- data.frame(var1 = seq(1:10))
df2 <- data.frame(var2 = seq(1:10))
df3 <- data.frame(var3 = seq(1:10))

df_LIST <- tibble::lst(df1, df2, df3)
df_FUN <- lapply(
  df_LIST, 
  function(x)
  {
    mutate(x, 
           df_NAME = deparse(substitute(x))
    ) %>%
      select("df_NAME") %>%
      na.omit()
  }  
)

list2env(df_FUN, .GlobalEnv)

结果：

> df1
   df_NAME
1        x
2        x
3        x
4        x
5        x
6        x
7        x
8        x
9        x
10       x

预期结果：

> df1
   df_NAME
1      df1
2      df1
3      df1
4      df1
5      df1
6 …

我对从函数创建的数据框遇到了麻烦groupby。

df = base.groupby(['year', 'categ']).agg({'id_prod':'count', 'price':'sum'}).unstack(level=1)

它返回这个结果：

但我想将id_prodand重命名price为no_salesandrevenue但由于多重索引我不知道该怎么做

结果print(df.columns) 是：

MultiIndex([('id_prod', 0),
            ('id_prod', 1),
            ('id_prod', 2),
            (  'price', 0),
            (  'price', 1),
            (  'price', 2)],
           names=[None, 'categ'])

这就是names=[]我想改变的谢谢你的帮助！

我有一个包含 4 个名义变量的数据框，每个变量有 3 个级别（A、B、C）。我想制作一个高度为 4、宽度为 3 的频率表，其中每行包含该变量的级别计数。

df <- data.frame(var1=c('B', 'A', 'C', 'A', 'B', 'B', 'C'),
                 var2=c('A', 'A', 'A', 'A', 'B', 'B', 'C'),
                 var3=c('A', 'A', 'A', 'A', 'B', 'B', 'C'),
                 var4=c('A', 'A', 'A', 'A', 'B', 'B', 'B'))

head(df,10)
    var1 var2 var3 var4
1    B    A    A    A
2    A    A    A    A
3    C    A    A    A
4    A    A    A    A
5    B    B    B    B
6    B    B    B    B
7    C    C    C    B

结果应该是这样的：

      A …

在R中，如何生成150个随机数，至少使用1到100之间的数字一次？

library(tidyverse)
set.seed(123)
df <- tibble(Random_number = sample(x = 1:100,
                                    size = 150,
                                    replace = TRUE)) %>% 
  arrange(Random_number)

例如，数字1、2、3等从未出现过。我知道这个脚本不够好，无法让数字 1 到 100 总是至少出现一次，如我所料，但我不知道如何实际编写该脚本。

我正在尝试编写一个函数，该函数允许我粘贴书面文本，并且它将返回写作中使用的文本内引用的列表。例如，这就是我目前拥有的：

pull_cites<- function (text){
gsub("[\\(\\)]", "", regmatches(text, gregexpr("\\(.*?\\)", text))[[1]])
    }
    
pull_cites("This is a test. I only want to select the (cites) in parenthesis. I do not want it to return words in 
    parenthesis that do not have years attached, such as abbreviations (abbr). For example, citing (Smith 2010) is 
    something I would want to be returned. I would also want multiple citations returned separately such as 
    (Smith 2010; Jones 2001; Brown 2020). I would also want Cooper (2015) returned as …

我有一份成分清单如下：

Ingredients <- "Starch (Corn | Potato | Wheat) | Vegetables (27%) [Pea (23%) (Flakes | Pieces) | Carrot Pieces | Onion Powder | Spinach Powder] | Croutons (10%) (Wheat Flour | Vegetable Oil | Salt | Yeast) | Maltodextrin | Natural Flavours (Contain Milk and Soybeans) | Creamer [Contains Milk | Mineral Salts (339 or 340 | 450 or 451)] | Salt | Mineral Salt (Potassium Chloride) | Sugar | Flavour Enhancer (621) | Vegetable Oil | Bacon Powder …

我的数据框包含选项数据。我想为每个交易日找到最接近货币的选项。很遗憾

ir_OEX_data %>% group_by(quotedate) %>% which.min(abs(moneyness_call  - 1))

导致以下错误：

which.min(., abs(ir_OEX_data$moneyness_call - 1)) 中的错误：未使用参数 (abs(ir_OEX_data$moneyness_call - 1))

但当我单独跑步时：

 which.min(abs(ir_OEX_data$moneyness_call  - 1))

该命令运行得非常好。

我在这里犯了什么错误？