对图像的GET请求返回3矩阵的数组

Question

我使用twitter API获取用户个人资料图片的网址。获得的url上的GET请求返回一个三个矩阵的数组。为什么有三个矩阵？当我使用with list(data) as ( values (jsonb '{"pages":[{},{"pageName":"test","components":[{},{"name":"comp1","type":"text","value":"val1"},{"name":"comp2","type":"grade","value":7}]}]}'), (jsonb '{"pages":[{"pageName":"test","components":[{"name":"comp3","type":"text","value":"val3"},{"name":"comp4","type":"not-grade","value":9}]}]}') ) select avg((comp->>'value')::numeric) from list, jsonb_array_elements(data->'pages') as page, jsonb_array_elements(page->'components') as comp where data @> '{"pages":[{"components":[{"type": "grade"}]}]}' and comp @> '{"type":"grade"}' and jsonb_typeof(comp->'value') = 'number'; 函数（s3 generic）显示每个矩阵时，我得到了具有不同颜色变化的图像。为什么我没有得到实际的图像？我是这一切的新手。请帮忙。

image

图像下方是实际图像，上面是使用 > imatrix <- content(GET("http://pbs.twimg.com/profile_images/454954067488288768/fU6NY-EI_normal.jpeg")) > class(imatrix) [1] "array" > image(imatrix[,,1])

显示的图像

Answer 1

取决于你想去哪里，你可能需要查看其他包。

一个简单的例子是jpeg - 包：

library(jpeg)
link <- "http://www.starwars.com/the-force-awakens/images/share_1200x627.jpg"
download.file(link, destfile = "picture1.jpg", mode = "wb")

img <- readJPEG("picture1.jpg")

plot(1:2, type = "n")
rasterImage(img, 1, 1, 2, 2)

（对不起，我改变了图片，但发现我的更漂亮...... :)）

如果您想深入了解R中的图片处理，可能需要查看imageR或ripa-package。

最后，您的图片中出现了错误的颜色，因为image - 函数使用函数的heat.colors参数指定的col绘制数据。

我希望指出你正确的方向......