本文介绍了同时使用formattable和plotly的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧! 问题描述 29岁程序员,3月因学历无情被辞! 如果formattable和plotly同时使用错误last_plot()中的错误:最后一个图不存在,如果运行以下代码,这是Nico Katze在 http://www.magesblog.com/2016/01/ format-table-output-in-r.html 。If formattable and plotly are used simultaneously the error "Error in last_plot() : The last plot doesn't exist" is given if the following code is run which is a problem already mentioned by Nico Katze in the comment section of http://www.magesblog.com/2016/01/formatting-table-output-in-r.html.library(formattable)library(plotly)DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"), Name=c("Dow Jones", "S&P 500", "Technology", "IBM", "Apple", "Microsoft"), Value=accounting(c(15988.08, 1880.33, NA, 130.00, 97.05, 50.99)), Change=percent(c(-0.0239, -0.0216, 0.021, -0.0219, -0.0248, -0.0399)))formattable(DF, list( Name=formatter( "span", style = x ~ ifelse(x == "Technology", style(font.weight = "bold"), NA)), Value = color_tile("white", "orange"), Change = formatter( "span", style = x ~ style(color = ifelse(x < 0 , "red", "green")), x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x))))`这个问题可以通过拆分这个包来解决,但问题是我想使用这两个包。尝试找到一个解决方案,最后在这个页面上 http://www.ats.ucla.edu/stat/r/faq/referencing_objects.htm 。一个提出的解决方案是使用formattable ::将函数直接链接到包。然而,它提供相同的错误,因此它不能解决问题。有没有人有这个问题的解决方案?The problem can be solved by detaching the plotly package but the problem is that I want to use both packages.Trying to find a solution I ended up on this page http://www.ats.ucla.edu/stat/r/faq/referencing_objects.htm. A proposed solution is linking the function directly to the package using formattable::. This however gives the same error so it doesn't resolve the problem. Does anyone have a solution for this problem?推荐答案找到答案!其实是使用formattable ::但是在风格函数这似乎是问题。下面的代码在加载时都是正常工作的。Found the answer!It is actually using formattable:: but on the style function which seem to be the problem. Below the code that is working when both plotly and formattable are loaded.library(formattable)library(plotly)DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"), Name=c("Dow Jones", "S&P 500", "Technology", "IBM", "Apple", "Microsoft"), Value=accounting(c(15988.08, 1880.33, NA, 130.00, 97.05, 50.99)), Change=percent(c(-0.0239, -0.0216, 0.021, -0.0219, -0.0248, -0.0399)))DFformattable(DF, list( Name=formatter( "span", style = x ~ ifelse(x == "Technology", formattable::style(font.weight = "bold"), NA)), Value = color_tile("white", "orange"), Change = formatter( "span", style = x ~ formattable::style(color = ifelse(x < 0 , "red", "green")), x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x)))) 这篇关于同时使用formattable和plotly的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持! 上岸,阿里云!
07-30 00:43
查看更多