文中数据链接
链接:https://pan.baidu.com/s/146UAVD_3c6pxiQnqLlopAA
提取码:jbqj
% 设置导入选项并导入数据
opts = delimitedTextImportOptions("NumVariables", 19);
% 指定范围和分隔符
opts.DataLines = [2, Inf];
opts.Delimiter = ",";
% 指定列名称和类型
opts.VariableNames = ["city", "x2018", "x2017", "x2016", "x2015", "x2014", "x2013", "x2012", "x2011", "x2010", "x2009", "x2008", "x2007", "x2006", "x2005", "x2004", "x2003", "x2002", "x2001"];
opts.VariableTypes = ["string", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double", "double"];
% 指定文件级属性
opts.ExtraColumnsRule = "ignore";
opts.EmptyLineRule = "read";
% 指定变量属性
opts = setvaropts(opts, "city", "WhitespaceRule", "preserve");
opts = setvaropts(opts, "city", "EmptyFieldRule", "auto");
% 导入数据
GDP = readtable("D:\中国主要城市2001-2018年GDP.csv", opts);
% 清除临时变量
clear opts
% 显示结果
GDP
mkdir('C:\Users\ASUS\Desktop\barchart.jpg'); %创建文件夹
x = GDP(:,1);
y = GDP(1:16,2:19);
a = (1:19)
b = 1
for b = 1:18
d = 19-b
e = b
y1 = y(:,d);
x1 = table2array(x);
y2 = table2array(y1);
barh (x1,y2);
h1=gcf ;
saveas(h1, ['C:\Users\ASUS\Desktop\barchart.jpg\', num2str(e) '.jpg']);
end
%这是保存文件为为图像的单次程序 不用 filename = 'barchart.png'
% f = gcf;
% exportgraphics(f,'barchart.png','Resolution',300);
route='C:\Users\ASUS\Desktop\barchart.jpg\';%基本路径
%d=dir([route '\*.jpg]);%.jpg格式
WriterObj=VideoWriter('video','MPEG-4');%待合成的视频(不仅限于avi格式)的文件路径
open(WriterObj);
%n_frames=numel(d);% n_frames表示图像帧的总数
for i=1:18
filename=strcat('C:\Users\ASUS\Desktop\barchart.jpg\',num2str(i),'.jpg');
frame=imread(filename);%读取图像,放在变量frame中
writeVideo(WriterObj,frame);%将frame放到变量WriterObj中
%%为每一帧图像编号
end
close(WriterObj);