r - BoxPlot in ggplotly -

-

i'm trying draw time series boxplot in r plotly libraries, need able have total control of ymin, ymax, ylow etc.

it renders fine in ggplot2, althought ton of warnings. fails render in ggplotly

here have.

msft = read.csv("http://ichart.finance.yahoo.com/table.csv?s=msft",              header=true,              sep=",") msft$date msftf = msft %>% tbl_df() %>% filter(as.date(date) > as.date("2016-01-01"))     %>% na.omit() msftf %>%   ggplot(aes(x = factor(date), ymin = low, lower = open, middle = close,     upper = close, ymax = high)) +   geom_boxplot() +   geom_boxplot(stat = "identity")

@david crook here's simple example.

library(plotly) library(quantmod)  prices <- getsymbols("msft", auto.assign = f) prices <- prices[index(prices) >= "2016-01-01"]  # make dataframe prices <- data.frame(time = index(prices),                      open = as.numeric(prices[,1]),                      high = as.numeric(prices[,2]),                      low = as.numeric(prices[,3]),                      close = as.numeric(prices[,4]))  # blank plot p <- plot_ly()  # add high / low line segment # add open close separate segment for(i in 1:nrow(prices)){   p <- add_trace(p, data = prices[i,], x = c(time, time), y = c(high, low), mode = "lines", evaluate = t,                  showlegend = f,                  marker = list(color = "grey"),                  line = list(width = 1))    p <- add_trace(p, data = prices[i,], x = c(time, time), y = c(open, close), mode = "lines", evaluate = t,                  showlegend = f,                  marker = list(color = "#ff5050"),                  line = list(width = 5)) }  p

update: release of plotly 4.0 doing lot easier:

library(plotly) library(quantmod)  prices <- getsymbols("msft", auto.assign = f) prices <- prices[index(prices) >= "2016-01-01"]  # make dataframe prices <- data.frame(time = index(prices),                      open = as.numeric(prices[,1]),                      high = as.numeric(prices[,2]),                      low = as.numeric(prices[,3]),                      close = as.numeric(prices[,4]))  plot_ly(prices, x = ~time, xend = ~time, showlegend = f) %>%    add_segments(y = ~low, yend = ~high, line = list(color = "gray")) %>%    add_segments(y = ~open, yend = ~close,                 color = ~close > open,                colors = c("#00b386","#ff6666"),                line = list(width = 3))

for more complete example see here: http://moderndata.plot.ly/candlestick-charts-using-plotly-and-quantmod/


Comments

Post a Comment

Popular posts from this blog

ios - Memory not freeing up after popping viewcontroller using ARC -

-
hi project arc based, using uinavigationcontroller make transition between viewcontroller. using profiler analyse happening behind scene memory. noticed when push viewcontroller allocate memory components , when pop not freeing allocated memory. since using arc unable implement dealloc or release component. have analysed in detail , there no memory leak in project. i not using strong property push viewcontroller. here how pushing viewcontroller. viewcontroller *obj = [[viewcontroller alloc] init]; [self.navigationcontroller pushviewcontroller:obj animated:no]; any clue whats going on? should free memory have consumed. please advise your description indicates have retain cycle, leads objects not being deallocated. typical source of retain cycles properties assigned loading nib files (usually declared iboutlet ). two strategies break them , release objects: declare property weak : @property (nonatomic, weak) iboutlet uilabel *statuslabel; set property nil in...
Read more

Django REST Framework perform_create: You cannot call `.save()` after accessing `serializer.data` -

-
i have following viewset: class artistprofileviewset(viewsets.modelviewset): queryset = artistprofile.objects.all() serializer_class = artistprofileserializer def perform_create(self, serializer): if serializer.is_valid(): serializer.save() with following serializers: class simpleartisttrackserializer(serializers.hyperlinkedmodelserializer): class meta: model = artisttrack fields = (...my fields...) class artistprofileserializer(serializers.hyperlinkedmodelserializer): owners = userserializer(many=true, required=false) tracks = simpleartisttrackserializer(many=true, required=false) class meta: model = artistprofile fields = (...my fields...) i getting following error: assertionerror: cannot call `.save()` after accessing `serializer.data`.if need access data before committing database inspect 'serializer.validated_data' instead. i don't see editing serializer.data object. th...
Read more

Why does Go error when trying to marshal this JSON? -

-
i'm trying rather simple example of trying decode json file structs using golang. however, when attempting error that json: cannot unmarshal object go value of type []main.track which don't understand. here's code in question, , json can found here . package main import ( "encoding/json" "fmt" "net/http" "os" ) // tracks group of track types type tracks struct { tracks []track } // track represents singular track type track struct { name string url string artist artist } // artist represents single artist type artist struct { name string mbid string url string } func main() { url := "http://ws.audioscrobbler.com/2.0/?method=geo.gettoptracks&api_key=c1572082105bd40d247836b5c1819623&format=json&country=netherlands" response, err := http.get(url) if err != nil { fmt.printf("%s\n", err) os.exit(1) } de...
Read more