为什么我在曲线条形图中获得的顺序不同于我在x和y变量中定义的顺序.
例如
library(plotly)
plot_ly(
x = c("giraffes", "orangutans", "monkeys"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
我需要条形图,我看到的条形顺序与x变量(分类)相同.这有什么诀窍吗？
我试图找出,如果在R中有比gsub矢量化函数更快的方法.我有一些"句子"(发送$ words)后面的数据框然后我有从这些句子中删除的单词(存储在wordsForRemoving变量中) ).
sent <- data.frame(words =
c("just right size and i love this notebook", "benefits great laptop",
"wouldnt bad notebook", "very good quality", "bad orgtop but great",
"great improvement for that bad product but overall is not good",
"notebook is not good but i love batterytop"),
user = c(1,2,3,4,5,6,7),
stringsAsFactors=F)
wordsForRemoving <- c("great","improvement","love","great improvement","very good","good",
"right", "very","benefits", "extra","benefit","top","extraordinarily",
"extraordinary", "super","benefits super","good","benefits great",
"wouldnt bad")
然后我将为时间消耗计算创建"大数据"模拟......
df.expanded <- as.data.frame(replicate(1000000,sent$words))
library(zoo)
sent <- coredata(sent)[rep(seq(nrow(sent)),1000000),]
rownames(sent) <- NULL
使用以下gsub …
我在我的html中使用bootstrap表:
<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css">
<style>
.table-condensed {
width: 90% !important;
}
而且我想让表中的字体大小更小.如何调整当前代码以获得所需的输出.提前谢谢了.
我正在为R中的for循环寻找一些简单的矢量化方法.我有以下数据框,包含句子和两个正面和负面词典:
# Create data.frame with sentences
sent <- data.frame(words = c("just right size and i love this notebook", "benefits great laptop",
"wouldnt bad notebook", "very good quality", "orgtop",
"great improvement for that bad product but overall is not good", "notebook is not good but i love batterytop"), user = c(1,2,3,4,5,6,7),
stringsAsFactors=F)
# Create pos/negWords
posWords <- c("great","improvement","love","great improvement","very good","good","right","very","benefits",
"extra","benefit","top","extraordinarily","extraordinary","super","benefits super","good","benefits great",
"wouldnt bad")
negWords <- c("hate","bad","not good","horrible")
现在我创建原始数据框的副本来模拟大数据集:
# Replicate original data.frame - big data simulation (700.000 …我想知道如何禁用鼠标左键单击以在 rmarkdown slidy_presentation 中显示另一张幻灯片。如果我尝试禁用/启用绘图中的某些类别，它将跳到另一张幻灯片。有什么选择如何处理它。非常感谢您在转发中的建议。
我有以下数据框与列表列:
a <- data.frame(col1=c("a","b","c"))
a$col2 <- list(list(),list(name="Michal", age=28), list(name="Johnny", age=31))
我想将这些列合并为一个数据框,以便所需的输出看起来像数据框下面:
col1 name age
1 a NA NA
2 b Michal 28
3 c Johny 31
用于将列表列转换为我正在使用的数据帧
plyr::ldply(a$col2, data.frame)
or
lapply(a$col2, data.frame, stringsAsFactors = FALSE)
但不幸的是,它会在第一个位置跳过空列表:
name age
1 Michal 28
2 Johny 31
有没有任何技巧,如何保持这个空列表进一步cbind().
我需要从数据框中的句子中删除已定义的字符串:
sent1 = data.frame(Sentences=c("bad printer for the money wireless setup was surprisingly easy",
"love my samsung galaxy tabinch gb whitethis is the first"), user = c(1,2))
Sentences User
bad printer for the money wireless setup was surprisingly easy 1
love my samsung galaxy tabinch gb whitethis is the first 2
用于排除的定义字符串,例如:
stop_words <- c("bad", "money", "love", "is", "the")
我想知道这样的事情:
library(stringr)
words1 <- (str_split(unlist(sent1$Sentences)," "))
ddd = which(words1[[1]] %in% stop_words)
words1[[1]][-ddd]
但我需要列表中的所有项目.然后我需要输出表与输入表在相同的结构sent1,但没有定义的字符串.
拜托,我非常感谢任何帮助或建议.
我在Northwind DB上使用异步LINQ有点麻烦，但是遇到了问题Task.WaitAll(task1, task2)。以下是我从中调用的方法static void Main(string[] args)。
public static void PerformDatabaseOperations()
{
using (var ne = new NORTHWNDEntities())
{
try
{
var aup = ne.Products.AverageAsync(p => p.UnitPrice)
.ContinueWith(t => Console.WriteLine($"Average unit price is {t.Result}"));
var ao = ne.Orders.GroupBy(o => o.OrderDate).AverageAsync(group => (double)group.Count())
.ContinueWith(t => Console.WriteLine($"Average orders per day is {t.Result}"));
Task.WaitAll(aup, ao);
}
catch (AggregateException ex)
{
Console.WriteLine(ex.ToString());
}
}
}
当我运行它时会抛出AggregateException：
System.AggregateException: One or more errors occurred. --->
System.AggregateException: One or more errors occurred. --->
System.NotSupportedException: …